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FOREWORD 


This User's Manual is Part II of the final report for Contract NAS3- 
18908. The report (Parts I and II) details the efforts and accomplishments 
of the second phase of the contract covering the period June 1975 through 
September 1977. The study was conducted for the NASA-Lewis Research 
Center, Cleveland, Ohio, by personnel of the Engineering Sciences Section, 
Lockheed-Huntsville Research & Engineering Center, Huntsville, Alabama. 

The NASA-Lewis Project Engineer is Dr. C. C. Chamis, Mail Stop 49-3. 

Dr. C.H. Lee was the principal investigator for the study, and the study was 
supervised by B. H. Shirley. 

Work was begun on this contract on 28 June 1974. Phase I of the study 
was completed in June 1975 and an interim report was submitted and published 
as NASA CR- 134933. Efforts on the study were directed toward the local 
analysis of a three-dimensional high velocity impact problem based on Euler ian 
representation. During the follow-on study in Phase II, efforts were directed 
toward the global finite element analysis of the problem by coupling the Eulerian 
mode with the Lagrangian mode, based on the results obtained in Phase I. An 
interfacing procedure for coupling the presently developed program, CELFE, 
with NASTRAN was also accomplished to increase the range of applicability 
for the program. 
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ABSTRACT 


The descriptions and user's manual of the CELFE program, together 
with the execution of the CELFE/NASTRAN system, are presented as Part II 
of the final report. The execution procedure and the transfer of data between 
the CELFE and NASTRAN programs are controlled through the use of "DATA" 
files in the Univac 1100 system. Five data files are used to control the run- 
stream and data transfer, and three files are used to hold the programs. These 
files are contained on a single tape. 

Changes in NASTRAN routines required by the present analysis are also 
discussed in this report. All the program listings, except the last two files 
(where the absolute and relocatable elements are stored), are included in the 
appendixes. 
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1. INTRODUCTION 


Descriptions of the CELFE program developed for high velocity impact 
analysis, together with the user's manual, are presented. The execution of 
CELFE and NASTRAN programs and the transfer of data between these two 
programs are controlled through the use of "DATA" files containing runstream 
control cards and user data cards in the Univac 1100 system. The complete 
CELFE/NASTRAN system consists of eight files contained in the delivery tape 
in the following sequence: 


File 

Name 

Type 

Purpose 

1 

RUN1 

DATA (SDF) 

Exec 8 control attaching the required files 
and executing the example problem 

2 

LEE 

Program 

CELFE program, source, relocatable and 
absolute elements 

3 

NASI 

DATA (SDF) 

NASTRAN runstream includes executive, 
case and bulk data decks 

4 

START 

DATA (SDF) 

Assign disk files and executes CELFE for 
1st run 

5 

LOOP 

DATA (SDF) 

Exec 8 control cards for looping from 
NASTRAN to CELFE 

6 

PCH2 

DATA (SDF) 

GRID cards for the CELFE model 

7 

NASTRAN 

Program 

14 NASTRAN absolute elements 

8 

OBJ 

Program 

NASTRAN relocatable and selected source 
elements . 


Descriptions of routines in the CELFE program that are stored in 
the LEE file are presented in Section 2, while the complete listings of the 
program are given in Appendix A. In Section 3, the interfacing procedure 
for CELFE/NASTRAN is presented. Some modifications on NASTRAN 
required for the procedure are also discussed, and the changed routines 
are listed in Appendix B. A CELFE/NASTRAN finite element model is 


1 - 1 . 



demonstrated in the last part of this section for illustration. The procedure 
for executing the program, including the descriptions of all the -files stored in 
the program tape, are presented in Section 4 ,. and the complete listing- of the 
five data files are tabulated in Appendix C. 
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2. DESCRIPTION OF CELFE PROGRAM ELEMENTS 

The CELFE program, consists of one main routine, CELFE; two flags, 
NASTRN and NFLAG; one PDP PROC, CELFEP; and 31 subroutines. All 
the routines are stored in LEE file, and listed alphabetically in Appendix A. 
The functions of the routines are tabulated in Table 2-1. 


2.1 SUBROUTINE ALMS 

+1a 

Subroutine ALMS [A-l]"' determines the pressure distribution using the 
Los Alamos equation of state. This subroutine is called after the solution in 
density, momentum and energy are determined. The calling sequence is 
written as 

Call ALMS(NPMT, NPS, NPPJ, NPPJT, INTF, INTFT, NFRAC, 

RHOT, RHOP, VER, PRS) 

The descriptions of the arguments of ALMS are given in Table 2-2. 


2.2 SUBROUTINE BNDEQ 

This is the in-core banded matrix equation solver [A-4] used for solving 
all the governing equations. The calling sequence reads 


Call BNDEQ(A, I, J, K, L) 


where 

A = compact form of the banded coefficient 
matrix plus loading vector 

I = maximum number of rows 

J = maximum number of columns 

K = total number of unknowns, and 

L = half bandwidth. 

'The number in the bracket indicates the compiled listing page number of the 
described subroutine. 
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Table 2-1 


LIST OF SUBPROGRAMS IN CELFE 


Subprogram 

Subprogram Function 

Compiled 

Title 

.Listing page 

ALMS 

Los Alamos equation of state 

A-l 

BNDEQ 

In-core banded matrix equation solver 

A -4 

CELANI 

Routine for generating and assembling element matrices of 
constitutive equations 

A -7 

CELDIS 

Routine for generating and assembling element matrices in 
coupling modes 

A-12 

CELFE 

Main program 

A-19 

CELFEP 

FORTRAN procedure definition processor 

A -32 

CELTRN 

Principal routine for interfacing CELFE/NASTRAN system 

A-38 

CEL3JB 

Jacobian updating, routine 

A -45 

CEL3CV 

Routine for generating and assembling element matrices of 
conservation equations 

A -48 

ELAGVA 

Subroutine computing element matrices for momentum 
equations in L c zone 

A-53 

ELCELA 

Subroutine computing element matrices for constitutive 
equations in impact zone 

A -56 

ELCELD 

Subroutine computing element matrices for displacements 
in impact zone 

A-59 

ELCELV 

Subroutine computing element matrices for conservation 
equations in impact zone 

A-61 

ELD ISA 

Subroutine computing element matrices for displacements 
in L c zone 

A-64 

ELMATS 

Translation of element matrices for constitutive equations 
from CELFE 

A-86 

ELMATX 

Translation of element matrices for conservation equations 
and displacements from CELFE 

A -88 

FRCRIT 

Chamis 1 failure criterion for composites 

A -87 . 

GEOMTR 

Subroutine defining initial finite element mesh, free surface 
nodes, and related geometric conditions from input data 

A-72 

INTVEC 

Reading subroutine for interpreting a vector in NASTRAN 
OUTPUT2 format 

A -75 

INVDET 

Matrix inversion routine 

A-79 

MATMUL 

Matrix multiplication routine 

A-80 

MATRX 

Writing subroutine for CELFE data in NASTRAN INPUTT2 format 

A-81 

MESHUP 

Mesh updating routine 

A -90 

OPENTP 

Reading subroutine for data written in NASTRAN OUTPUT2 format 

A -95 

OUTMAT 

Bridging routine for element matrices translated by ELMATS and 
ELMATX to MATRX 

A-99 

SFCALC 

Shape functions for cubic isoparametric element 

A-103 

SFCALL 

Shape functions for linear isoparametric element 

A-101 

SFCALQ 

Shape functions for quadratic element 

A-102 

SLTEST 

Routine for testing rebound, sliding or penetration 

A-108 

SORT 

Sorting routine 

A-l 19 

STIFFG 

Reading routine for material stiffness coefficients of anisotropic 
materials 

A - 120 

STIFF 

Computtmg routine for material stiffness coefficients for ortho- 
tropic materials 

A-123 

STRENG 

Viscoplastic yielding criterion for isotropic materials 

A-125 
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Table 2-2 

DESCRIPTIONS OF PROGRAM VARIABLES 


Word 


Description 


A 

ALPHA 
BFS (I, J) 

C (I, J,K) 

DIS (I, J) 

DISN (I, J) 
DISPRV (I, J) 
DT 

IB DIS (I, J) 

IBDIST (J) 
IBDS (I, J, K) 

IBDST(J,K) 
IBDV{I, J) 

IBDVT(J) 

ICOND 


INNER 

INTF(I) 

IN TFT 

IORDC, IORDL 
ISOP, ISOT 


ITER 

ITGIV 

IUNIT 

NASTRN 


NELG, NPLG 


Time step multiplicity, a 

Relaxation factor, ct 

Body force, F. (l = number of nodes) 


Material stiffness coefficients 


C,. (I = number of nodes) 


Displacements, u., at present integration step (I = number 
of nodes) 

u. at INNER = 1 
J 

u. at previous time step 
Time increment 

Nodal number of boundary node for displacements 
u. (1= 1,2,. . . ,IBDIST(J)) 

Total number of boundary nodes for u. 

Nodal number of boundary nodes for deviatoric stresses 
S. k (I=l,2, . ,.,IBDST(J,K)) 

Total number of boundary nodes for Sj k 

Nodal number of boundary nodes for V, , V-, V_ , E and p 
(1= 1, 2, . . . , IBDVT(J)) 


Total number of boundary nodes for Vp V^, V^, E and p 
Parameter for generation of initial data: 

ICOND = 0 — Read data from input cards 

= 1 — Generate data from main program 

= 1 and 2, the number of iterations in two-step time inte- 
gration procedure 

Nodal number of impact nodes (1=1,... ,INTFT) 

Total number of impact nodes 

Order of finite elements in impact zone and Lagrangian 
zone, respectively 

Materials of target and projectile, respectively: 

= 0 — Isotropic 
= 1 — Orthotropic 
Number of time steps 
Total number of time steps 
Unit: = 1 - ISU 


= 2 — English 
Flag controlling the run: 

NASTRN = 0 — In-core CELFE run 


= 1 - CELFE/NASTRAN run 

Number of elements and nodes, respectively, for starting 

the L mesh 
c 
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Table 2-2 - (Concluded) 


Word 

NELT.NPST 
NEPJ.NPPJ 
NEPJT, NPPJT 
NET, NPS 
NETR.NPTR 

NFLAG 

NFRAC 

NFS(I) 

NFST 

PMIU, TMIU 

PNIU, PPNIU 

PRS(I) 

PRSN(I) 

PRSPRV (I) 
PYLD, TYLD 

RHOP, RHOT 
SLC, SET 

SMIU 

STS(I,T,K) 

STSN(i;j',K) 

STSPRV(I, J,K) 

TIME 

V(J) 

VBD, SBD, DISBD 
VER(I, J) 

VERN(I, J) 
YERPRV(I, J) 



Total number of elements and nodes, respectively, for 
the CELFE substructure 


Number of element and node, respectively, for starting 
the projectile mesh 

Number of last element and node, respectively, for 
the projectile mesh 

Total number of elements and nodes, respectively, in 
impact zone 

Number of element and node, respectively, for starting 
the interface nodes between the impact zone and the 
Lagrangian zone 

Flag controlling the CELFE run 

Total number of failure nodes 


Nodal number of free surface nodes (1=1,.,. ,NFST) 
Total number of free -surface nodes 


Viscosities for projectile and target materials if ISOP, 
ISOT = 0, respectively 

Poisson's ratio for target and projectile when ISOP, 
ISOT = 0, respectively 

Pressure distribution in impact zone at present step 
(I = number of node) 

Pressure at INNER = 1 


Pressure at previous time step 

Yielding stresses for projectile and target when ISOP, 
ISOT = 0, respectively 

Initial densities for projectile and target 

Unidirectional failure stresses under compressive and 
tensile loads, respectively 

Coulomb's friction coefficient 


Deviatoric stresses S., 
jk 

Deviatoric stresses S., 
jk 

Deviatoric stresses S., 
Jk 

Time in psec 


at present step (I = number of node) 
at INNER = 1 
at previous time step 


Impact velocity J=l,2, 3 

Boundary conditions for VER, STS, and DIS, respectively 


Momentums, energy and density, Vj, V^, Vg, E and p ( J = 1, 
. . . , 5) at present step (I = number of node) 


Vi,V 2 ,V 3 ,E and p at INNER = 1 

Vj, V^, E and p at previous time steps 
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2.3 SUBROUTINES CELANI, CELDIS AND CEL3CV 


Subroutines CELANI [A -7] , CELDIS [A -12] and CEL3CV [A -48] are prin- 
cipally and logically identical routines for generating and assembling the element 
matrices of constitutive equations, displacement equations, and conservative equa- 
tions, respectively. The respective calling sequences are read as follows: 

Call CELANI(INTF,' INTFT, CINT, LI, L2) 

Call CELDIS (I) 

Call CEL3CV (J) 

Here, INTF, INTFT and QINT are described in Table 2-1; and 

L1,L2,I = 1, 2, 3, representing the coordinates x^x-^.Xg, 

respectively. 

J = 1, . . . , with 1, 2, 3 representing momentums on x^, x^, x 3 ; 

4 representing the total energy; and 5 the density. 

FORTRAN PROC PARAM1 is inserted in all three subroutines to define 
the sizes of dimensional variables. The FORTRAN PROCs CONSTY, DISPLV 
and CONSRV are also inserted, respectively, to subroutines CELANI, CELDIS 
and CEL3CV, for storing the common blocks. 

As an illustration, the flow chart for- CELANI is depicted in Fig. 2-1. 

2.4 CELFE - MAIN PROGRAM 

CELFE [A- 19]' reads the flag NASTRN for the option (whether the in-core 
or coupled CELFE/NASTRAN procedure) to be utilized in the computations as 
the starting point. Following NASTRN, the flag NFLAG and related param- 
eters controlling the procedure, and numerical data for mesh, material prop- 
erties, etc., are read subsequently from data cards. Then, the program 
provides the main runstream for the entire impact analysis. The procedure 
description is illustrated in the flow chart depicted in Fig. 2-2. 
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Subroutine 
. CELANI/ 



Fig. 2- 1 - Flow Chart for Subroutine CELANI 
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Fig. 2-2 (Continued) 
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Subroutine FRCRIT 

— Failure Criterion 
for Orthotroplc 
Materials 

Subroutine CEL3JB 

— Update Jacobian 
for Moving Coordinate 
System 


Subroutine SLTEST 
— Test Solution for 
Penetration, Rebound 
or Sliding 


Fig 2-2 (Concluded) 





2.5 PDP CELFEP 


The procedure definition processor CELFEP [A-32] consists of ten 
FORTRAN PROCs: 

PARAM1 PROC defines the sizes of the parameters for the main 
program and all major subroutines except GEOMTR and CELTRN. 

PARAM2 PROC defines the sizes of the parameters for GEOMTR. 

CELFE1 PROC stores related dimensions and common blocks in 
the main routine CELFE. 

CONSRV PROC stores the common blocks for subroutine CEL3CV. 

CONST V PROC stores the common blocks for subroutine CELANI. 

DISPLV PROC stores the common blocks for subroutine CELDIS. 

GENMSH PROC stores the common blocks for subroutine GEOMTR. 

TESTNG PROC stores the related parameters, dimensions, and 
common blocks for subroutine SLTEST. 

CELSTR PROC defines the parameters, data, and dimensions, as 
well as stores the common blocks for subroutine CELTRN. 

STATEQ PROC defines the data for subroutine ALMS. 

The parameters are described in Table 2-3. 

2.6 SUBROUTINE CELTRN 

This subprogram [A-38] serves as the principal routine for interfacing 
the CELFE/NASTRAN system. It is called only when the flag NASTRN=1, and 
the calling sequence reads 

Call CELTRN (K) 


where K = 1, .... 4. 


The runstream of CELTRN can be described according to the value of 

K as 


^ • Store all the solutions of the previous time step, related data 
and parameters in disk file 1 6 ; also, call subroutine OPNNAS to open the 
disk file KFILE for storing the matrices computed from subroutines CELANI 
and CEL3CY in NAS TRAN INPUTT 2 format. 
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Table 2-3 

DESCRIPTIONS OF PARAMETERS IN FORTRAN PROCs 


Word 


Description 


IU = 5 

NBV,NBS, NBD 


NCMAX, NR MAX 


NDFRS 

NDINT 

NDPJT 

NEM 

NEMT 

NFRC 

NGP 

NGPLG 

NPE 

NPELG 

NPM 
NPMT 
NTRL = 7 
NTSTEP 
NWK 


Dimension of the conservation 
equations. 

Dimensions of the boundary nodes 
for conservation equations, con- 
stitutives equations, and displace- 
ments, respectively, in CELFE 
zone. 

For in-core CELFE run: Dimen- 
sions of column and row, respec- 
tively, for banded matrices; for 
CELFE/NASTRAN run: NCMAX =2, 
NR MAX = MAXDOF (number of 
degrees of freedom). 

Dimension of the free surface 
nodes. 

Dimension of the impact nodes. 

Dimension of the projectile nodes. 

Dimension of elements in impact 
zone. 

Dimension of elements in CELFE 
zone. 

Dimension of failure nodes! 

Number of Gaussian points used 
in impact zone. 

Number of Gaussian points used 

in L zone, 
c 

Dimension of nodes for each 
element in impact zone. 

Dimension of nodes for each L - 
element. 

Dimension of nodes in impact zone. 

Dimension of nodes in CELFE zone. 

Dimension of trailer. 

Dimension of time -step in the run. 

Dimension of working space in inter- 
facing with NASTRAN. 
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K = 2; Call subroutine OPNNAS to open the disk file LFILE for storing 
matrices computed from CELDIS in NASTRAN INPUTT2 format. 

K = 3; Read the coordinates from breakpointed- dish file- 18 in NASTRAN 
bulk data format GRID, and update the mesh. Then punch the image cards of 
the coordinates and store in breakpointed disk file 19 in the same format. At 
the same time, update the DAREA, DIT and TSTEP, and punch and store in the 
same breakpointed disk file 19. 

K = 4: Call subroutine OPENTP to open the disk files MFILE and NFILE. 
Then read the stored data in file 16 , and solutions computed by NASTRAN and 
stored in MFILE and NFILE in OUTPUTS format. 

2.7 SUBROUTINE CEL3JB 

This subroutine [A -45] updates the Jacobian of the general moving co- 
ordinate system with respect to the fixed frame. The computations cover 
only the mesh in the impact zone. The calling sequence reads 

Call CEL3 JB (NPM, NEM, VERPRV, VERN, VER, NOD, NPE, FJPRV, 
FJ.KODE) 

where the arguments are defined in Tables 2-2 and 2-3. 

2.8 SUBROUTINES ELAGVA, ELCELA, ELCELD, ELCELV AND ELD ISA 

These logically identical subroutines compute the element matrices 
following the finite element formulations of governing equations in various 
zones: 

ELCELV [A-6l] —For conservation equations in the impact zone 

ELCELA [A-56] — For constitutive equations in the impact zone 

ELCELD [A - 5 9] , ELAGVA [A-53] , and ELD ISA [A-64] - For 
coupling Euler ian-Lagrangian modes using lateral displacements 
and velocities as the coupling variables. Here, the first sub- 
routine is for the impact zone, and the last two are for the L 
zone. 
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Three-dimensional isoparametric elements are used in all sub- 
routines. ELCELD, ELAGVA and ELDISA are called only when the L c zone 
is not empty, (cf. Part I of the present report for the discussions and finite 
element formulations.) 

2.9 SUBROUTINES FRCRIT AND STRENG 

FRCRIT [A-67] is the principal subroutine for predicting the failure of 
composites based on Chamis' failure criterion; and STRENG [A- 125] is for 
isotropic materials based on von Mises' criterion. The numerical procedures 
follow directly the discussions given in Section 6.4 of Part I. 

The calling sequences are read, respectively, 

Call FRCRIT (NPMT, NPM, STS, INTF, C, CSTF, NCNT, NFRC, 

NDFRC, NFS, EF, PNF, CKF, KODE) 

and 

Call STRENG (NPM, STS, YIELD, NFS, INTF, KODE) 
where the arguments are described in Tables 2-2 and 2-3. 

2.10 SUBROUTINE GEOMTR 

This subroutine [A -72] reads the finite element mesh from input data 
for the CELFE substructure, i.e., for the impact zone and the L c zone. Its 
calling sequence is 


Call GEOMTR (X, Y) 


where 

X = nodal coordinates for the entire CELFE 
substructure 

Y = respective dimensions of the impact zone 

The 3-D quadralateral elements must be used in the CELFE substructure. 
The serendipity family available in CELFE consists of linear, quadratic and 
cubic elements as shown in Fig. 2-3. 
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In GEOMTR, the free surface nodes fox the impact zone, the impact 

I 

surface nodes, and the interfacial nodes are also defined from the inp'ut data. 

The flow chart of the routine is depicted in Fig. 2-4. < ■ 

It is noted that the geometry of the CELFE substructure must be divided 

» 

a priori into the impact zone (including the projectile) and the L c zone. The 
dimensions of the impact zone chosen must be large enough to cover the possible 
failure zone. The partition is illustrated in Fig. 2-5. 

The elements and the corresponding nodes must first be numbered in the 
impact zone, this process repeated in the L c zone; or vice versa. The number- 
ing cannot be mixed among different zones, which is also applied when the L^ 
zone (NAS TRAN zone) is included. 

The input data are stored in START file together with those read in 
main routine CELFE. 


METHOD FOR 'GEOMTR 1 


1. Generating Elements for the Impact Zone: The statements are 
written as 

DO 210 N = 1, NET 

READ 1000, (NOD(N.I), 1= 1,NPE) 

210 PRINT 1150, N, (NOD(N,I), 1=1, NPE) 

1000 FORMAT (2014) 


Here, we denote 
NET 
NPE 

NOD (N, I) 


total number of elements in the impact zone 

number of nodes in each element for the 
impact zone 

global numbering of the node at the N^ ele- 
ment corresponding to the I^ 1 local numbering. 


2. Generating Elements for the L r Zone: Following the statements 
in (1), we write 

NN = NET + 1 

DO 211 N = NN, NELT 

REAL 1000, (NOD (N,I), I = 1, NPELG) 

211 PRINT 1150, N, (NOD(N,I), 1=1, NPELG) 
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4 - Flow Chart for Subroutine GEOMTR 
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Fig. 2-5 - Partition of the Impact Zone and L c Zone at t = 0 
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Here, the integers 

NELT = total number of elements in the CELFE 

substructure 

NPELG = number of nodes in each element of the 

L zone, 
c 

Thus, the total number of elements in the L c zone is equal to 
NELT-NET. In addition, note that the parameters NPE and 
NPELG may have different values depending on the order of 
elements used in the impact zone and the L c zone. For ex- 
ample, if linear elements are used in the impact zone, and 
quadratic elements in the L c zone, then NPE = 8, NPELG= 20. 


The numbering of nodes, NOD(N, I), in the finite element mesh must 
start from axes parallel to the impact plane, as illustrated in Fig. 2-6. 


3, Generating Mesh in the Entire CELFE Substructure; The mesh 
in the CELFE structure is represented in different coordinate 
systems characterized by the integer KODE(I). The read state- 
ment can be written as 


DO 220 N = 1, NPST 
READ 1300, G, KODE(N), (X(N,I),I = 1, 3) 
220 PRINT 1305, G, KODE(N), (X(N, I), 1= 1, 3) 
1300 FORMAT (16A1, 18, 3F8.3) 


Here, the integers 


NPST 

KODE(N) 


total number of grids (nodes) in the CELFE 
substructure 

0 Euler ian mesh 

1 E-L mesh 

2 Interfacial mesh for E-L zone and 
Lagrangian zone 

3 L mesh 

c 


The format of the input cards is similar to the NASTRAN bulk 
data format GRID, with the given number of KODE(N) punched 
on the third (CP) field: 


N KODE(N) X(N, 1) X(N, 2) X(N, 3) 


GRID 

8 

0 

1.0 

2.5 

0.0 

x 


16 


24 


32 


40 


48 
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4. Read Free Surface Grids and Impact Surface Grids; The statements 
read as 


READ 1000, (NFS(I),I = l.NFST) 
READ 1000, (INTF(I),I= l.INTFT) 
1000 FORMAT (2014) 


Remarks 


© In general, all the KODE(I)s in the impact zone are set to be 1, 
except the interface nodes between the impact zone and the 
Lagrangian zone where the number of KODE(I) is set to be 2. 

® If the mesh in the impact zone is too coarse and cannot be re- 
fined, it is suggested that at the interior nodes of the impact 
zone KODE(I) = 0; on free surface, KODE(I)= 1; and at the 
interface, KODE(I) = 2. 

« When sliding is likely to occur due to oblique impact, the CELFE 
substructure must be defined to be a band covering the entire 
sliding path on the target (see Fig. 2-7). The integer KODE(I)= 1 
for the entire CELFE substructure, except those interface nodes 
of the CELFE substructure and the L„ zone (NASTRAN zone), 
where KODE(I) = 2. W 




Fig. 2-7 - Illustration of Sliding Band (as Denoted by ABCD) 
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2.11 SUBROUTINES INTVEC, MATRX AND OPENTP 


These multiple entry subroutines are key routines for interfacing 
CELFE/NASTRAN. 

Writing Subroutines 

MATRX [A-81] — Write NASTRAN formatted data block for INPUTT2 

Entry Points: OPNNAS — Open file, write data on header 

MATRX — Write second record name and 
trailer 

COLUMN — Write current column index 
ELEMNT — Write one row index and value 
into file 

WEOF — Write EOF for current data block, 

Reading Subroutines 

INTVEC [A -75] — Interpret a vector from OUTPUT2 
OPENTP [A -95] - Read NASTRAN data block from OUTPUT2 

Entry Points: OPENTP — first call to process NASTRAN 

tape made by OUTPUT2 

OPENF — READ second record, name and 
trailer 

READF — NASTRAN data block begins from 
third record. 


METHOD FOR 'MATRX' 


1. Open file - Call OPNNAS (FILE, WORK, NWD, IDATE, LABEL, 1) 

2. Write matrix name trailer — Call MATRX (NAME, NCOL, NROW, 

NFORM, NTYPE) 

3. Write matrix terms by columns / 


DO 1=1, NCOL 
CALL COLUMN (I) 
DO J = 1, NROW 
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CALL ELEMNT (J, D) 
CONTINUE 

4. Close - Call WEOF 


where D is value of matrix 
. D(J, I) 


Word 

D efinition 

IDATE(3) 

Month, day, year 

LABEL(Z) 

Value of P3 


NAME(Z) 

Matrix name, NASTRAN data block name 

NCOL 

Number of columns 


NROW 

Number of row's 


NFORM 

Form of Matrix 1 — 
2 - 
3 - 
4- 

5 - 

6 - 

7 - 

8 - 

Square 

Rectangular 

Diagonal 

Low Triangular 

Upper Triangular • 

Symmetric 

Row Vector 

Identity 

NTYPE 

Type 1 -S. P. 

2 — D.P. 

3 - CPSP 

4 - CPDP 



METHOD FOR "READ" 


OBJECTIVE - To read a matrix written by NASTRAN OUTPUT2. 

1. Open File Reads Tape Header - Call OPENTP (FILE, N, NWD, 

IERR, ILB) 

Z. Read Matrix (or .Table) Name and Trailer — Call OFENF(IERR, ITRL) 
3. Read Matrix (or Table) Values by Column — Call READF($N^, $N£> 

A, WD, FLAG, IERR) 

Word Definition 

FILE FORTRAN unit number (1Z, 14, 15, etc.) 

N Working buffer 

NWD Size of buffer 


Z-Z3 



IERR 

Flag use to locate fatal error 

ILB 

If, 0, no tape label record; if, +1, read tape label record 

ITRL(7) 

Seven work trailer 

$N X 

Statement number for 1st return, READF encountered 
EOR while reading 

$n 2 

Statement number for 2nd return, call SKIPF 

A 

Array for matrix 

WD 

Size of working buffer 

FLAG 

Number of row left in current record. 


Remarks 


1 . 

If an error 

return occurs from OPENTP, 


IERR 

Meaning 


-5 

Incorrect number of words in date label ■ 


-4 

Incorrect number of words in header 


-3 

Incorrect number of words in tape ID {P3) 


-2 

EOR for first record missing 


-1 

EOF for first record missing. 

2. 

If an error 

return occurs for OPENF, 


IERR 

Meaning 


-14 

Incorrect number of words in data block name, 
or unexpected EOF encountered 


-13 

EOR missing 


-12 

Incorrect number of words in data block trailer 


-11 

EOR missing after data block name. 

3. 

If an error 

return occurs from READF, 


IERR 

Meaning 


-22 

EOR encountered when reading key 


-23 

Value for EOR is not correct for this record 


-24 

EOR is not correct value 


-25 

Insufficient working core to hold FORTRAN 
logical record. Increase the value of NWD 
in OPENTP. 


-26 

Unexpected EOR encountered. 
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4. If an error return occurs from SKIPF, 

Meaning 

EOR is not correct for this record 
Number of words to be read is incorrect 
Number of words to be read is greater than the 
number of words in buffer area. 

5. Entry point READF is for general use in reading tables or matrices. 

6. The subroutine 1NTVEC may be used for reading a single matrix vector. 

2.12 SUBROUTINES ELMATS AND ELMTRX 

These routines bring the element matrices, each element at a time, from 
the subroutines CELANI, CEE3CV and CELDIS into the subroutine OUTMAT. 
Here, 

ELMATS [A-86] — Brings element matrices out from OF T, A NT 

ELMAT [A-88] — Brings element matrices out from CEL3CV 

and CELDIS 

The subroutines are logically identical and are called, respectively, in CELANI, 
and CEL3CV, CELDIS (cf. Fig. 2-1). As an illustration. Fig. 2-8 depicts the flow 
chart for ELMATS which follows the flow chart given in Fig. 2-1. 

2.13 SUBROUTINE OUTMAT 

This subroutine [A -99] serves as the bridging routine to extract all the 
element matrices and loading vectors from CELFE, and write in files opened 
in MATRX on NASTRAN INPUTT 2. format. The subroutine is called by ELMATS, 
and ELMTRX as 

Call OUTMAT (NAME, CD, NUMNP, NFORM, NOD, 

NELT, NPELG, NN, L, IPARAM) 

where 

= Matrix name, NASTRAN D. B. name 
= Element matrix or loading vector 
= 1 — Element matrix 
= 2 — Element loading vector 


IERR 

-31 

-32 

-34 


NAME 

CD 

NUMNP 
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Subroutine 
. EbMAT-S. 


Element Matrix 
Enter from CELANI 


♦ 



Subroutine OUTMAT 
— Carry Matrix into 
MATRX 


Subroutine OUTMAT 
— Carry Loading Vector 
into MATRX 


Fig. 2-8 - Flow Chart for ELMATS 


NFORM 

= Form of the matrix 

NN 

= The number of the element being carried 

L 

= The number of coordinates, 1 for X. , 2 for 
X and 3 for Xg 

IPARAM 

= 1 No coupling involved 

= 2 Coupling procedure 


The remaining arguments in OUTMAT are described in Table 2-1, and the 
flow chart is shown in Fig. 2-9. 
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Subroutine 
MATRX — _ 
Write the 
Element 
Matrix in 
File 17 



Fig. 2-9 - Flow Chart for OUTMAT 
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2. 14 SUBROUTINES SFCALL, SFCALQ, AND SFCALC 


This package of subroutines provides the shape functions of three- 
dimensional isoparametric elements, along with their first-order derivatives 
with respect to spatial variables. Here 

SFCALL [A -101] — Provides shape functions 

for linear elements 

SFCALQ [A-102] — Provides shape functions 

for quadratic elements 

SFCALC [A -103] — Provides shape functions 

for cubic elements. 

2.15 SUBROUTINE SLTEST 

This routine [A-108] tests the solution of each time step for the possi- 
bilities of 

« Rebound 

• Sliding 

• Penetration. 

FORTRAN PROCs PARAM1 and TESTNG are included to provide the sizes of 
the variables, and the storage of the common blocks. 

The criteria for various cases are discussed in Part I of this report. 
The routine tests the possibility of rebound first using the momentum vector 
computed each time step. If all nodes in the projectile begin to reverse the 
direction of velocities normal to the impact surface, the projectile is assumed 
to rebound. Then the computations in the following time step will exclude the 
projectile. Otherwise, the runstream proceeds to test the sliding case. 

If the impact is not oblique, jump to the third case. If yes, use the 
criterion discussed in Part I to test the onset of the sliding. If yes, the mesh 
of the entire CELFE substructure is regenerated, and the original impact 
surface becomes a moving contact surface and moves along the sliding band 
(cf. Section 2.10). Otherwise, the runstream proceeds to the third case. 


and their derivatives 
and their derivatives 
and their derivatives 
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The penetration follows the failure criteria tested in subroutines 
STRENG or ERCRIT. Thus, if there is no failure, the runstream returns. 
Otherwise, test the possibilities of degeneracy of certain elements- due to 
free surface motion, and/or other means. If there is a degenerate element, 
then regenerate the mesh and return (Fig. 2-10). 

2.16 MISCELLANEOUS SUBPROGRAMS 

There are miscellaneous subroutines for the needs of various computa- 
tions: 


INVDET [A -79] — Computes the determinant and its inverse for 

a matrix 

MATMUL/A-80] — Provides the multiplication of matrices 

MESHUP [A -90] — Update the coordinate system from computed dis- 
placement vector and smooth out the spurious 
oscillation when the mesh is too coarse 

SORT [A -119] —Sorts the global arrays of submatrices 

STIFFG [A-120] — Computes the material stiffness coefficients 

for anisotropic materials by input data cards 

STIFF [A-123] — Computes the material stiffness coefficients for 
unidirectional composite materials. 
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Fig. 2-10 - Flow Chart for SLTEST 
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3. CELFE/NASTRAN INTERFACING PROCEDURE 


The theoretical background and formulation of the CELFE/NASTRAN 
interfacing procedure are given in Part I of this report. In this section, re- 
lated software aspects of the procedure are discussed, together with cor- 
rections and modifications made in the NASTRAN program, for making the 
procedure operational. 

3.1 GENERAL DISCUSSIONS 

The NASTRAN program is interfaced with the CELFE program to serve 
the following purposes: 

® Utilizing complete NASTRAN capabilities for tackling high velocity 
impact problems, and 

'o Resolving any limitation of the size of the CELFE program. 

These goals can be accomplished by treating the dynamic behavior in the 
vicinity of the impact point simulated by CELFE as a substructure of the 
entire NASTRAN model, and utilizing the NASTRAN program to perform 
all large matrix manipulation requirements. 

3.1.1 Geometric Considerations 

In the CELFE program, the three-dimensional serendipity family of 
elements' is used {cf. Section 2-10). The interfacing procedure permits the 
three-dimensional mesh of a CELFE substructure to be connected with any 
type of finite element mesh in the NASTRAN structure via suitably chosen 
linking elements available in NASTRAN. 

An illustration is shown in Fig. 3- la for a blade subjected to high velocity 
impact of a projectile near the leading edge; the CELFE zone containing the 
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CBAR 



Fig. 3-1 - An Illustration of CELFE/NASTRAN Mesh 
Near the Reading Edge 


— A Blade Impacted by a Projectile 











projectile and the vicinity of the impact point is discretized by three- 
dimensional linear quadrilateral mesh; in the remaining region of the blade, 
NASTRAN plate elements are used. In order to join the two regions, typical 
CBAR elements are used at the interface nodes between the L» c zone and L^ 
zone as shown in Fig. 3- lb. In Fig. 3-2, a wedge element family is used as 
the linking elements. 

3.1.2 Interfacing Procedure 

The CELFE in-core execution and CELFE/NASTRAN run are con- 
trolled by a flag NASTRN described in the previous section. For the in-core 
run, where NASTRN=0, the element stiffness matrices of all variables are 
assembled and solved inside CELFE. For the CELFE/NASTRAN interfacing 
procedure, where NASTRN=1, the element matrices computed by CELFE for 
"primary variables" as well as the "coupling variables" in CELFE sub- 
structure are transmitted to NASTRAN. These matrices will be assembled 
and solved in NASTRAN for each iteration in each time step. The solution 
will be returned to CELFE to continue the execution. A general flow diagram 
for CELFE/NASTRAN runstream is illustrated in Fig. 3-3 (cf. also Fig. 2-2). 

Five data files were prepared to contain the input data for CELFE and 
NASTRAN, and control the runstream during program execution. These files 
are se't-up as "permanent" files. Only the input data in the files need to be 
changed by the user for different problems. In addition, several scratch files 
will be generated within those permanent files to store the temporary data 
during the execution. All these files are compiled in Table 3-1. 
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Interface Projectile 



Fig. 3-2 - Typical Finite Element Sketch in Global Analysis of High Velocity Impact 



Fig. 3-3 - Interfacing Procedure for CELFE/NASTRAN 
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Table 3-1 


LISTING OF FILES USED IN CELFE/NASTRAN PROCEDURE 


File Name 

Type 

Purpose 

INPT (14) 

Disk 

Output solution for primary variables 
computed by NASTRAN in OUTPUT 2 
format. 

INP 1 (15) 

Disk 

Input element matrices and load 
vectors for primary variables to 
NASTRAN from CELFE in INPUTT2 
format. 

INP2 (16) 

Disk 

Store variables and constants in 
CELFE for restart. 

INP3 (17) 

Disk 

Input element stiffness matrices of 
CELFE substructure to NASTRAN 
in INPUTT 2 format. 

LEE 

Program 

Store the complete CELFE program; 
source, relocatable and absolute 
elements. 

LOOP 

Data (SDF) 

Loop NASTRAN and CELFE execu- 
tions after fresh start. 

NAS TRAN 

Program 

Store 14 NASTRAN absolute elements 

NASI 

Data (SDF) 

Execute NASTRAN portion after fresh 
start. 

OBJ 

Program 

Store NASTRAN relocatable and se- 
lected source elements. 

PCH 1 

Disk 

Store break- point- punch data in 
PCH 2, DA REA, TIC, TSTED for 
NASTRAN. 

PCH2 (18) 

Data (SDF) 

Store punched GRID cards of CELFE 
model for NASTRAN. 

PCH3 (19)_ 

Disk 

Store updated GRID computed from 
CELFE. 

PLT1 (12) 

Disk 

Output solution vector UVN from 
NASTRAN in OUTPUT 2 format. 

RUN1 

Data (SDF) 

Illustrate Exec 8 control for attach- 
ing the required files and executing 
the example problem. 

START 

Data (SDF) 

Assign disk files and execute CELFE 
for fresh start. 
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3.2 UTILIZATION OF NAS TRAN PROGRAM 


3.2.1 Specific Tasks 

The specific tasks performed by NASTRAN are: 


® Sum "primary variables" calculated by CELFE for each CELFE 
isoparametric element and solve the matrix equations, Ax = B. 

© Sum the CELFE element stiffness matrices' with the NASTRAN 
system stiffness matrix. 


2. Kl. + K2. + K3. + KGGX = KGG 

li ii 

© Solve the equation of motion for each CELFE iteration. 


Kx + Bx + Mx = P(t) 


To accomplish these tasks and to communicate information between CELFE 
and NASTRAN, several I/O routines were installed in CELFE which read and 
write matrices in an acceptable NASTRAN format. The standard NASTRAN 
Rigid Format 9 was then altered to perform the required matrix manipulation 
and output results to the CELFE program. The runstream sequence can be 
described as in Fig. 3-4 (cf, also Fig. 3-3). 


3.2.2 File Allocation for NASTRAN 

When communicating between a FORTRAN program (CELFE) and 
NASTRAN several restrictions and procedures must be followed. 


© Data blocks (either tables or matrices) can be input or output from 
NASTRAN via the INPUT T2 and OUTPUT 2 modules. These modules 
operate normally using FORTRAN unformatted read and write in- 
structions. 

© The NASTRAN rules for writing the FORTRAN records must be 
rigorously adhered to. Therefore, a set of subroutines has been 
prepared which when added to the user FORTRAN program, will 
read or write the FORTRAN records in the required NASTRAN 
form. 
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CELFE (Iteration 1, 3, 5. . . 


1. Read Model Data — File '-START' (iter. 1 only)' 

2. Calc Mesh, and Elem. Coeff. (Iter. 1 only) 

3. Store Variables & Const, for Restart — File 16 

4. Calculate and Output NASTRAN Cards - Read File PCH2 
DAREA, GRID, TIC, TSTEP - File PCH1 

GRID - File PCH3. 

5. Calculate "Primary Variables" A&B 

6. Output A&B — File 15 

7. Calculate Element Stiffness Matrices 

8. Output Kl, K2 & K3 - File 17 


NASTRAN (All Iterations) 

1. Add File PCH1 to Bulk Data 

2. Initialize Files 14 & 15 

3. Read A, B - File 15 

4. Sum Element Matrices A, B 

5. Solve X and Output — File 14 

6. Repeat 3,4, 5 for 11 Parameters 

7. Calculate NASTRAN Model, KGGX 

8. Read CELFE Stiffness Kl, K2, K3 - File 17 

9. Assemble CELFE/NASTRAN Stiffness 

10. Apply System Constraints 

11. Solve Transient Equations for Given Time Step 

12. Output Solution Vector UVN — File 12 

13. Print NASTRAN Solution 


CELFE (Iteration 2, 4, 6. . . 

1. Load Stored Constants — File 16 

2. Jump to Inner Loop 

3. Load Solution Vector (Disp., Velo.) — File 12 

4. Update Grid Locations, TIC, DAREA and TSTEP - 
File PCH1 

GRID - File PCH3 

, 5. Update "Primary Variables" A&B 

6. Output A &B — File 15 

7. Calculate Element Stiffness Matrices 

8. Output Kl, K2 & K3 - File 17 

__ 

Fig. 3-4.- CELFE/NASTRAN Runstream Description 
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9 The simplest and least costly method for temporarily storing the 
data is through the use of disk files rather than tape. Since all hut 
a few files used by NASTRAN are restricted to NASTRAN read and 
write, the user must determine beforehand which files are available 
in NASTRAN for FORTRAN formatted files. These files are highly 
dependent on the particular version of NASTRAN to be used. However, 
all versions permit the PLT1 (12) file to be used, if plotter number 1, 
is not being used. Additional files can be obtained by checking the 
total number of NTRAN files used. The DIAG 2 option will print the 
file allocation table (FIAT). The NTRAN files may be counted di- 
rectly from this table. The MAXFILES parameter on the NASTRAN 
card can then be decreased by a number (N), where N is the number 
of FORTRAN files available for use by INPUTT 2 and OUTPUT2. 

The available files begin where the NTRAN files stop; e.g., if the 
program had a maximum of 30 NTRAN files, and the last file was 46, 
the user can use file 46 for a FORTRAN file by setting MAXFILES = 

29 (30-N, here N=l) qr files 44, 45 and 46 by setting MAXFILES = 27. 
The Lewis Research Center's version of NASTRAN permits files 14 
through 17 to be used for FORTRAN written files without exercising 
any special options. For that reason disk files 12, 14, 15, 16 and 17 
were utilized to communicate between CELFE and NASTRAN (cf. 
Table 3- 1). 


3.2.3 Program Changes for NASTRAN 


In.order to interface NASTRAN with CELFE, some subprograms in 
NASTRAN must be modified. The following is a summary of the program 
changes made to the NASTRAN program. 


© Modify modules INPUTT2 and OUTPUT2 to use formatted FORTRAN 
read and write statements. Format used: (22A6), Reason — The 
formatted read and write was selected to minimize disk or tape space 
when passing a large number of matrices between CELFE and NASTRAN. 
When the standard nonformatted write is used, a minimum of one 28 
word sector is used for each write statement. The small elemental 
matrices generated by CELFE may require only 8 or less non-zero 
terms per write statement (matrix column). The formatted write 
therefore reduces the disk or tape requirement by a factor of from 3 
to 14, since a null column requires 2 words and a full column 9. 

o The modules INPUTT2, OUTPUT2 and MATPRN were added to NASTRAN 
LINK7. This was accomplished by changing the subroutine XSEM07 and 
data block routine XBSBD. The map symbolic was modified for LINK7, 
and LINK1, 2, 8 and 14 were recollected to include the changes in the 
block data routines. Reason — When the elemental matrices are being 
assembled, a DMAP loop is used to input, add, input, add, etc., solve 
the matrix equation and output the result. In the standard NASTRAN 
program, link switching occurs in this loop. INPUTT2 is in LINK2, 
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ADD in LINK 7, SOLVE in LINK7, MATPRN in LINK8 and 
OUTPUT2 in LINK 14. When a LINK change occurs on the 
Univac 1100 Exec 8 system, FORTRAN files are automatically 
rewound. This rewind feature would utilize excessive CPU 
time as well as physically wear out a tape. In the example 
problem, the inner loop of the DMAP alter is repeated for 33 
elements and 11 parameters (33 x 11) or a total of 363 times 
for each iteration by CELFE. By placing all modules used in 
the DAMP loop into LINK7, the file retains its position at the 
end of each INPUTT2 read, and each elemental matrix can be 
read sequentially. The same is true for the solution vector [xj . 
When written to a disk or tape file, each of the 11 primary vari- 
able solution vectors are written sequentially on the output file. 


3.2.4 Transient Analysis in NASTRAN 

Rigid format 9, "Direct Transient Analysis," was selected to perform 
the NASTRAN portion of the analysis [3] . The basic rigid format provides all 
of the module operations required for a normal finite element transient analysis. 

A DMAP alter program is added to Rigid Format 9 to read elemental 
matrices generated by CELFE, sum the matrices and solve the matrix equa- 
tion AX = B for the "primary variables" and to add the CELFE stiffness 
matrices (K1,K2, and K3) to the NASTRAN system stiffness matrix (KGGX), 
Alters are also used to output to disk, the solution vector X for the "primary 
variables" and the NASTRAN data block UVN which contains the displacement, 
velocity and acceleration vectors from each time step solved by the NASTRAN 
transient response analysis. 

3. 3 FINITE ELEMENT MODELING - AN EXAMPLE 

The general discussions on the finite element mesh arrangement for 
CELFE/NASTRAN have been presented in Section 3.1 (e.g.. Fig. 3-1). In 
this subsection, a specific procedure for the finite element modeling will be 
presented by the following example. 
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3.3.1 Normal Impact of a Projectile onto a Taped Composite Plate 

Consider a taped rectangular plate subjected to high velocity impact 
by a foreign object. Assume that the projectile hits on the center of the plate 
surface normally as shwon in Fig. 3-5. Thus, due to the symmetry of the 
problem, it suffices to consider only a quadrant of the plate, say, the first 
quadrant. 

The finite element model (for the quarter of the plate together with the 
quarter of the projectile) is divided into two substructures. The first sub- 
structure (CELFE model) is made up of CELFE 8-node isoparametric solid 
elements and the second substructure (NASTRAN model) is made up of any of 
the finite elements contained in the NASTRAN element library [2] . If the 
NASTRAN model utilizes bars and/or plate elements, special modeling tech- 
niques must be employed to ensure inter -boundary displacement compatibility. 


3.3.2 CELFE Modeling Considerations 

The finite element modeling of the CELFE substructure must follow 
the procedure described in Section 2. (specifically, Section 2.10 and Figs. 2-6 
and 2-7). To prepare the modeling, it is important to recall the following: 


o The CELFE substructure consists of the impact zone and the L c 
zone (Fig. 2-5). The impact zone, in turn, is composed of the 
E zone and E-L zone whose sizes change with respect to time £l] . 

® For normal impact, the size of the impact zone should a priori be 
chosen large enough to cover the terminated failure zone. Naturally, 
this can only be done by an estimation (or a guess). If too small a 
size is chosen the accuracy of the result will be affected; too large 
a size will consume computation time. 

a For oblique impact, the configuration of the CELFE model should 
be able to allow the possible sliding taking place within the sub- 
structure as remarked in Section 2.10 and illustrated in Fig. 2-7. 

a The finite element mesh for the CELFE substructure should be 

arranged according to the READing sequence in subroutine GEOMTR 
(Section 2.10), namely, mesh numbering should start from the impact 
zone, and then the L c zone. The coordinates and node numbering 
are illustrated in Fig. 2-6. 
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Fig. 3-5 - Geometric Sketch of a Thre 
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The CELFE mesh can now readily be modeled and is shown in Fig. .3-6. 
The zoning is as follows: . 

® The impact^ zone consists of nodes 1 through 6l (or elements 1 
through 25 )T 

o The transition (E-L) zone starts from node 47 to node 76 (i.e., 
element 26 to element 33). 

® The L c zone selected in this example is empty. 

Thus, in this example, the CELFE substructure is connected with NASTRAN 
substructure through nodes 62 through 76 in the E-L zone. 


3.3.3 NASTRAN Modeling Considerations 

Figure 3-7 illustrates the NASTRAN model. The process intercon- 
necting the CELFE model and NASTRAN model is depicted in Fig. 3-8. To 
prepare the NASTRAN bulk data, the following procedure should be utilized: 

e All grid points contained in the CELFE model (e.g., 1 through 76), 
including boundary points, must be defined in the NASTRAN bulk data. 
This is accomplished by adding the RCH1 file (at ADD, P PGH1), 
after the BEGIN BULK card of the NASI file. The cards in file 
PCH1 have been generated by CELFE and are updated each iteration 
by adding the displacements calculated in the transient analysis to 
the current grid point coordinate location. The CELFE program 
obtaines the previous grid location by reading the PCH2 file. The 
. user must place the original CELFE GRID cards into the PCH2 file 
(cf. Table 3-1) 

e AH grid points contained in the NASTRAN model excluding the 
CELFE/NASTRAN interfacial boundary points ( 1 6 3 through 326 in 
the example) are placed in file NASI by the user. 

CELFE grid points must be internally sequenced before the NASTRAN 
grid points. This simplifies the partitioning required to combine the 
two substructures for transient analysis in NASTRAN and for reading 
and writing data blocks in CE LF E. 

© All constraints are applied during the NASTRAN analysis (NASI 
file). 


‘The numbering sequence of .the elements must follow the sequence of the 
nodes . 
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Fig. 3-6 - CELFE Finite Element Model 
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MPC - Equations (typ) 


X 163 = X 63 X 166 =X 66 

Y 163 = Y 63 Y 166 = Y 66 

Z 'l63 =Z 63 Z 166 = Z 66 



Isoparametric Element 


Fig. 3-8 - An Illustration of Connecting CELFE Model to NASTRAN Model 
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• If multipoint constraints (MPC) are used to ensure displacement 
compatibility across the interface boundary, the following tech- 
nique is recommended: 

A NASTRAN grid point has been added to each CELFE mid- 
point grid lying on the boundary between the two substructures 
(e.g., 163, 166, 169, 172 and 175). The NASTRAN grid exists 
at the same location as the CELFE grid (e.g., 63, 66, 69, 72 
and 75). The mid-point grids are coupled by MPCs for the three 
translational degrees of freedom (DOF); rotational displacement 
is transmitted from the CQUAD2 plate to the CELFE 8 -node solid 
elements by using rigid bars (CBAR with arbitrarily large 
section properties) connected between the mid-point node 
(163) and the top and bottom nodes of the solid (64 and 62, 
respectively). 

• Permanent grid point constraints are applied using the GRDSET 
card and field 8 of the GRID card. These constraints remove 
the inplane rotation DOF (6) on all CQUAD2 elements and all ro- 
tational DOFs (4, 5 and 6) on all CELFE 8 -node solid elements. 

o Symmetry constraints and supporting constraints are applied 
using SPC1 cards. 

• Loads for the transient analysis are provided on DAREA, 

TABLED 1 and TLOAD1 cards. The CELFE program will 
automatically place a new set of DAREA cards into file PCH1 
for each iteration. The user must provide TLOAD1 and 
TABLED 1 cards which will apply a unit scale factor to the 
DAREA load. 

® The integration time step (TSTEP) is determined by CELFE 
and placed into the PCH1 file; no user card Is required. 

• The initial conditions (displacement and velocity) for each 
iteration are obtained from CELFE which places TIC cards 
into file PCH1. The values are obtained from the previous 
solution vector. 

0 Several PARAM cards must be defined in the bulk data; they 
are: 

BLOK=0, used to control file positioning by the INPUTT2 
module. 

SYM=0, use unsymmetric solution techniques for module 
SOLVE. 

NOEQU= number of "primary variables" to be solved. 

NUMNP=N-1, where N = number of CELFE elements. 
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4. EXECUTION OF CELFE/NASTRAN 


4.1 RUNSTREAM FOR UNIVAC 1100 SYSTEM 

The execution -of the CELFE and NASTRAN programs and the transfer 
of data between these two programs is controlled through the use of "DATA" 
files containing runstream control cards and user data cards. The options 
for using the in-core CELFE program and coupled CELFE/NASTRAN are 
controlled by the flag NASTRN, as described in Section 2, where 

NASTRN = 0 for in-core CELFE 

NASTRN = 1 for CELFE/NASTRAN 

4.1.1 Program Tape 

There are five files used to control the runstream and three files used 
to hold the programs. These files are contained on a delivery tape in the 
following sequence: 


File 

Name 

. T 7Bg 

Purpose 

1 

RUN1 

DATA (SDF) 

Exec 8 control attaching the required 
files and executing the example problem 

2 

LEE ' 

Program 

CELFE program, source, relocatable 
and absolute elements 

3 

NASI 

DATA (SDF) 

NASTRAN runstream includes executive, 
case and bulk data decks 

4 

START 

DATA (SDF) 

Assigns disk files and executes CELFE 
for 1st run 

5 

LOOP 

DATA (SDF) 

Exec 8 control cards for looping from 
NASTRAN to CELFE 

6 

PCH2 

DATA (SDF) 

GRID cards for the CELFE model 

7 

NASTRAN 

Program 

14 NASTRAN absolute elements 

8 

OBJ 

Program 

NASTRAN relocatable and selected 
source elements. 
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The complete listing of the program LEE File is given in Appendix A. 
The modified source elements of NASTRAN contained in the program OBJ 
File j«s listed- in Appendix B. A complete listing of each Data File contained 
on the Program Tape is presented in Appendix C (Tables C-l through C-5). 


4.1.2 Data File Descriptions 

The Data Files listed in Appendix C are based on the demonstration 
example given in Section 3.3. The following is a brief description of the 
cards found in the Data Files: 

RUN 1 The RUN1 file is used to start (at START) a CELFE/NASTRAN 

run. All files required for execution are attached. Two data 
files START and LOOP are added (at ADD) to execute the pro- 
grams. 

START The START file provides the runs tr earn and initial data for 

executing CELFE (cf. Section 4.2 for details) 

Card No, 


Assigns all necessary disk files 1-6 

Defines the required "USE" relationships 7-15 

Breakpoints the CELFE punch cards to file 

PCH1 16 

Executes the CELFE program (first time only) 17 

All CELFE data cards ’ 18-163 

Closes Breakpoint of punch cards 164 

Breaks the "USE" relationship so NASTRAN 

can use files 18 and 19 165-166 


Update the PCH2 file with new GRID cards from 
PCH3 file (PCH3 was written by CELFE at the 
same time card images were punched into PCH1.) 167 

NASI The NASI file contains the DMAP alter program added to 

Rigid Format 9 to read the element matrices generated by 
CELFE, sum the matrices and solve the matrix equations 
for the primary variables; at the same time, the element 
stiffness matrices are added from CELFE to solve the 
stiffness matrix equation for the entire system (cf. Section 
4.3 for details). 


The card numbering in this file is based on the demonstration example 
described in Section 3.3. 
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LOOP 


Provides the necessary control cards for looping between 
NAS TRAN and CELFE 


Card No. 


Add NAS 1 file to execute NASTRAN 1 

Breakpoint PUNCH$ to PCH1 6 

Define "USE” relationships 7-8 

Execute CELFE for second iteration of inner 

loop 9-11 

Close Breakpoint PUNCH$ 12 

Break "USE" relationship 13-14 

Update the PCH2 file with new GRID cards 

from PCH3 file 15 


Repeat procedure for first iteration of inner loop 17-26 

PCH2 Contains GRID cards for CELFE substructure at time t = 0. 

The cards are prepared for the NASTRAN program for the 
NASTRAN program to solve the system stiffness matrix 
equation. 


4.1.3 Basic Considerations for Input and Output 

The input data for CELFE and NASTRAN are prepared separately, and 
are stored in the different files, so that the CELFE in-core execution can be 
carried out more efficiently. 

The CELFE input data are given in the 'START' File, and will be de- 
scribed in detail in Section 4.2. 


The NASTRAN input data, on the other hand, are prepared and stored 
in two separate files: . 


o The data for the NASTRAN substructure, together with the param- 
eters required for solving the entire problem, are embedded in 
DMAP alters given in 'NASI 1 File. The details will be described 
in Section 4.3. 

® The GRID data for CELFE substructure at t = 0 prepared for 
NASTRAN is stored in 'PCH2' File. The data cards must be in 
the NASTRAN GRID format. 
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The present program is developed for both SI and British units. The 
unit will be identified by the assigned value of IUNIT: 

■IUNIT = 1 - SI Unit 
IUNIT = 2 - British Unit 

The units used for the input and output variables are listed in Table 4-1. 


Table 4-1 

UNITS FOR INPUT/OUTPUT VARIABLES 


Variable 

SI (IUNIT = 1) 

British (IUNIT = 2) 

Length 

cm 

in. 

Velocity 

cm/ sec 

in./ sec 

Time (AT) 

JLlsec 

jusec 

Density 

gm/ cm^ 

lb/m? 

Pressure, Stresses (and 
Other Similar Quantities) 

megabar 

psi 

Energy 

megabar 

lbf-in./in^ 


4.2 INPUT DATA FOR CELFE 

As aforementioned, the input data for the CELFE program are all - 
stored in 'START' file. For the demonstration example given in Section 3.3, 
these data are found on the card numbers 18 through 163. As readily de- 
scribed in Section 4.1.2, the remaining cards (card Nos. 1 through 17, and 
Nos. 164 through 167) in the 'START' file are all control cards. All these 
control cards should be kept unchanged for all time in utilizing the program. 


The complete listing of the 'START' file is given in Table 4-2, and its 
card images are shown in Fig. 4-1. In what follows, the input data cards will 
.be described sequentially starting from card number 18 of Table 4-2. 
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Table 4-2 

LISTING OF FILE 'START' 


SYM 


aOA T A, L START . 

DATA 8 fil 4L73R1 1C/31/78 21 :19:15 ( 0) 

1. iASG.T PIT 1 y F// /2000 

l. SUSE 12.,PLTl. 

3. dASG } T 1NPT .F///2000 

9. aASG.T INP1.F///2000 

5. 3 A S 6 t T T f.P2 i F/7 /2DQO 

t. d A S G » 1 INP3, F///2DOO 


7. 

3USE 

19. , 

plNPT 

• 








6ft 

an s e 

15., 

,INP1 

ft 








9. 

suse 

16 • i 

1 1 NP 2 

• 








1C. 

ausE 

17. , 

> 1 NP 3 

• 








1 1. 

SASG , 

A PCH2. 









12. 

ausE 

18. , 

,PCH2 

ft 








1 3. 

aASG i 

,T PCH1 , F///100Q 







1*1. 

a AS G i 

,C PCH3.F///10Q0 







1 S. 

ausE 

19. 

i PCH 3 

ft 








1 fc. 

iERKPT PUNCHS/PCtfl 







17. 

axoT 

CELf E 









18. 

♦ 1 

ChANGE 

THIS CARD TO 0 

FOR CLEFE RUN ONLY 



1 9. 

0 











?C. 

HIGH VELOCITY : 

IMPACT DEMONSTRATION 

PROBLEM 



2 1. 

1 

1 

51 

9 

I 

0 

2 

8‘10 

0 



22. 

9. 

■ EG 


0. 


0. 






2 3. 


0, 

,0 


0.0 

-7.5600+3 2.0000+ 0 

2.0000+0 8 

.2000-2 


29. 

7 . 3 CLG • 

-2 5 

.1200-2 


0 

.0 2.7027+3 

0.0 6 

•QOQO+3 

i.oobo'+S — 

25. 

76 

33 

13 

3 

16 

3 

62 

30 77 39 

76 33 698 

103 


26. 

20 

20 

0 

1 5 

15 

ID 

ID 

10 ’10 10 

10 10 10 

10 20 

20 0 

27. 

1 

9 

10 

7 

2 

5 

11 

8 




2 £• 

2 

5 

11 

8 

3 

6 

12 

9 




29. 

3 

6 

12 

9 

13 

19 

16 

15 




3 C. 

9 

17 

20 

10 

5 

18 

21 

11 




3 1. 

. 5 

18 

21 

11 

6 

19 

22 

12 




32. 

10 

20 

23 

26 

11 

21 

29 

27 




33. 

11 

21 

29 

27 

12 

22 

25 

28 




3*. 

7 

10 

26 

29 

8 

11 

27 

30 




3 5. 

8 

11 

27 

30 

9 

12 

28 

31 




3 6. 

17 

32 

35 

20 

18 

33 

36 

21 




3 7. 

18 

33 

36 

21 

19 

39 

37 

22 




38. 

20 

35 

3 B 

23 

21 

36 

39 

29 




39. 

21 

36 

39 

29 

22 

37 

9 Q 

25 




9C. 

26 

23 

38 

9 1 

27 

29 

39 

92 




9 1. 

27 

29 

39 

92 

28 

25 

90 

93 




9 2. 

29 

26 

91 

9 9 

30 

27 

92 

95 




9 3. 

30 

27 

92 

9 5 

31 

28 

93 

96 




9 9. 

32 

97 

50 

35 

33 

98 

51 

36 




9 S. 

. 33 

98 

51 

3b 

39 

99 

52 

37 




9 e. 

35 

50 

53 

38 

36 

51 

59 

39 




9 7. ' 

36 

51 

59 

39 

37 

52 

55 

90 




9 E. 

91 

38 

53 

56 

92 

39 

59 

57 




9 9. 

92 

39 

59 

57 

93 

90 

55 

58 




" 5C. ' 

99 

91 

56 

59 

95 

92 

57 

60 




5 1. 

95 

92 

57 

6 G 

96 

93 

58 

61 




52. 

97 

62 

65 

5 0 

98 

63 

66 

51 




5 3. 

98 

63 

66 

51 

99 

69 

67 

52 




' 5 9," 

50 

65 

' 68 

53 

' 51 ' 

66 

69 

59 





qRIGINAL 
OF PSOR 


IS 

OUiVLfTY 


(Continued) 
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Table 4-2 (Continued) 


S YJ1 


55. 

SI 

66 69 

54 

52 

67 70 

SS 


5 £. 

56 

53 68 

71 

57 

54 69 

72 


57. 

57 

54 69 

72 

58 

55 70 

73 


56. 

59 

56 71 

74 

60 

57 72 

75 


59. 

60 

57 72 

75 

61 

58 73 

76 


6 C. 

BRIO' 

1 



20 . 

0 . 

Q. 

6 1 . 

GRID 

2 



10 . 

0 . 

0.041 

6 2 * 

6R10 

3 



10 . 

0 . 

0.082 

6 :. 

6 RID 

9 



20.15 

0 . 

0 . 

t 4* 

GRID 

5 



10.15 

0 . 

C.041 

fc 5* 

GRID 

6 



10.15 

' D. 

0.082 

6 6 « 

’’ GRID 

7 



20 . ’ 

0 .15 

0 . 

67. 

GRID 

8 



10 . 

0.15 

0.041 

66 . 

GRID 

9 



10 . 

O.'lS 

C.082 

65. 

GRID 

10 



20.15 

0.15 

0 . 

' 7 C. 

GRID 

11 



10.15 

0.15 

' 0.041 ’ 

71. 

GRIO 

12 



10.15 

0.15 

0.082 

7i, 

GRID 

13 



10 . 

0 . 

0.232 

7 3. 

GRIO 

1 9 



10.15 

G. 

0.232 

7*1. 

GRID 

15 



10 .’ 

0.15" 

’0.232 

75. 

GRID 

16 



10.15 

D.15 

0.232 

7 6 . 

GRID 

17 



20.35 

0 . 

0 . 

77. 

GRIO 

18 



10.35 

0 . 

0.041 

7 8 . 

GRID 

" ’ 19 ’ ~ 



’ 10.35 

0 . 

' ” 0.082 ’ 

75. 

GRID 

20 



20.35 

0.15 

0 . 

8 C. 

GRIO 

21 



"10.35 

0.15“ 

’o;c4i 

8 1 . 

GRIO 

22 



10.35 

0.15 

0.082 

e 2 . 

GRID 

23 



20.35 

0.35 

C. 

6 3. 

6 RIO 

29 



10.35 

0.35 

0.041 

' 8 4. 

6 RID 

' 25 



"10.35 

"" 0.35’ 

0.082“ 

8 5. 

GRID 

26 



20.15 

0.35 

G . 

8 6 . 

GRID 

27 



10.15’ 

0.35" 

0.041’ 

8 7. 

GRIO 

28 



10.15 

0.35 

C.08 2 

8 8 . 

GRID 

“ 29 “ 



2D. 

0.35’ 

”’" 0 . 

8 9. 

GRID 

30 



10 . 

0..3S 

C.041 

9 t • 

GRID 

31 



10 . 

0.35 

0.D82 ’ 

9 1. 

GRIO 

32 



20.5 

C. 

C. 

9 2. 

GRIO 

33 



~ 10 . S’" 

0 . 

0.041' 

9 2. 

GRIO 

39 



10.5 

0 . 

0.082 

■ 9 4. 

GRID 

- 35 - 



20.5 “ 

’ 0.35 

~ ■' c. 

9 5. 

GRID 

36 



10.5 

0.35 

0.041 

9 fc • 

GRID 

37 

. - 

" ” 

10.5 

' 0.35 

“ 0.082 

97. 

GRIO 

38 



20 . S 

0.5 

0 . 

9 8 . 

GRID 

39 



10.5 

0.5 

0 • 04 l -- 

95. 

GRIO 

90 



10.5 

0.5 

0.082 

’"'IOC. 

GRIO 

91 - 



20.35 

"' ’ 0.5 ’ 

0 . 

10 1 . 

GRIO 

92 



10.35 

0.5 

C.041 

1 ?) 2 . 

GRID 

83 



10.35 

0.5 

0.082 

103. 

GRIO 

99 



20 . 

0.5 

0 . 

104. 

Grid 

45 



10 . 

0*5 

0 . 0*4*1 

105. 

GRID 

96 



1 C. 

0.5 

0.082 

10 6 . 

GRIO 

47 



21 . 

0 . 

“ ’ 0 . 

10 7. 

GRID 

48 



11 . 

0 . 

0.041 

106. 

GRID 

49 



11 . ' 

0 . 

0.082 

105. 

6 R I 0 

50 



21 . 

0.5 

0 . 

" lie. 

GRIO 

51 



" 11 . " 

0.5 

0.041 
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Table 4-2 (Concluded) 


SYH 


111. 

GRID 

52 

11 . 

0.5 

0.082 

112. 

GRID 

53 

21. 

1. 

0. 

112. 

GRID 

54 

11. 

1. 

C.041 

114. 

GRID 

55 

11. 

1. 

G.082 

115. 

GRID 

56 

20. 5 

It - 

0. 

lit. 

GRID 

57 

10.5 

1. 

0.041 

11 7. 

GRID 

58 

10.5 

1. 

G.Q82 

HE. 

GRID 

59 

20. 

1. 

C. 

115. 

GRID 

60 

10. 

1. 

C.041 

12 C. 

GRID 

61 

10. 

1. 

0.082 

12 1. 

GRID 

62 

22. 

0. 

0. 

122. 

GRID 

63 

22. 

□ . 

. C 4 1 

12 2. 

GRID 

64. 

22. 

0. 

• P 82 

124. 

GRID 

65 

22. 

1. 

0. 

125. 

GRID 

66 

22. 

1. 

.041 

12 t. 

GRID 

67 

22. 

1. 

.082 

127. 

GRID 

68 

22 . 

2. 

G. 

1 ? c* 

GRID 

69 

22. 

2. 

.041 

125. 

GRID 

70 

22. 

2. 

.082 ' 

1 3 £• 

GRID 

71 

21. 

2. 

C. 

111. 

GRID 

72 

21 . 

2. 

*C41 

132. 

GRID 

73 

21. 

2. 

.082 

132. 

GRID 

74 

20. 

2. 

0. 

134. 

GRIO 

75 

20. 

2. 

.041 

135. 

6RID 

76 

20. 

2. 

.082 


13t. 

1 

4 

6 

•7 

9 

10 

12 

13 

14 

15 

16 

17 

19 20 

22 

23 

25 

26 

28 

29 

137. 

31 

32 

34 

35 

37 

38 

40 

41 

43 

44 

46 

47 

49 50 

52 

53 

55 

56 

56 

59 

13t. 

61 

62 

64 

65 

67 

68 

70 

71 

73 

74 

76 










135. _ 3 6 9 12 

14C. 8. 1000*3 ‘ 9.1000*3 8.9000*3 '9 . 1000* 3 ' 0. 1 990* 6 " V .1 00 0* 3 8.9000*3"' 9.1000*3 

i«ii. e.icuo+3 


14 2'. 17 • 9CGQ*3" - 9.'lGQ0*3 8". 9 000+ 3" 9 71000*3 0''."2320*"6 9*100“0~+3 8;9'000*3 V.'lOOO+X 

142 . ^17. 9000*3 _ 

144. 3. 1500*6 0.7800*6“ 0.6000*6 0 .7800* 6 2 9. 2000+ 6 "0 .7 800*6'. 0.6000*6 ' 0 .78 00*6 

145. 3.1500*6 


14t. 

0. 

00 


0.17 

' ‘ 

0. 

S3 


0.17 


0. 

00 


0.17 


0. 

53 


0.17 


147. 

0. 

00 






TT 

“29 












14 8. 

1 ‘ 

2 

X 

7 

“s r 

-- 

~ii~ 

30 

xr 

44 

45 

46 

5 <T 

“60~ 

“6 1 

~VT 

“75“ 

76 ' 

14 9. 

1 

2 

3 

4 

5 

6 

13 

14 

17 

18 

19 

32 

33 

34 

47 

48 

4 9 

62 

. 63 

64 

15C. 

” 62 

63 

64 

65 

66 

" 67 

68 

69 

7Q 

71 

72 

73 

74 

75 ' 

76 






15 1. 

62 

63 

64 

65 

66 

67 

68 

■6 9 

70 

71 

72 

73 

74 

75 

76 






152. 

62 

64 

65 

67 

68 

70 

71 

73 

74 

76 











153. 

62 

64 

65 

67 

68 

70 

71 

73 

74 

76 











154. 

62' 

" b 4 

6 5' 

6 7“ 

68 

7 0“ 

71 

73 

74“ 

7 6 











15£. 

62 

64 

65 

67 

68 

70 

71 

73 

74 

76 











15t. 

62 

64 

65 

67 

68 

70 

71 

73 

74 

76 











15 7. 

62 

64 

65 

67 

68 

70 

71 

73 

74 

76 











15fc. 

' 62 

64 

65 

67 

68 

' 70 

71 

73 

74 

76 











155, ‘ 

62 

64 

65 

67 

68 

70 

71 

73 

74 

76 











1 6 C o 

62 

64 

65 

6 7 “ 

68 

“70 ' 

~7 1‘ 

”73' 

”’74 

'76 











161. 

1 

2 

3 

7 

8 

9 

13 

15 

29 

30 

31 

44 

45 

46 

59 

60 

61 

74 

75 

76 

16 2. 

1 

2 

3 

4 

5 

6 

13 

' ‘ 14 

17 

18 

19 

32' 

33 

”34 ' 

“47" 

“48 

' ‘4 9“ 

“62 

' 63 ' 

'64"' 


162. __ 3.C01 0.001 0.002 0.002 0.002 0.002 0.005 0.005 

" 164. ‘ ' aBRKPT PUNCH* 

165. aFRCE.b 18. 

166. «JFRE E .8 19. “ 

167. SCOPY PCH3..PCH2. 

Tnd“caTa"; ' ' 
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4.2.1 CELFE/NASTRAN Execution Control Flag — NASTRN Card 

Function; Defines the option of the execution — 

NASTRN = 0 for in-core CELFE 

NASTRN = +1 for CELFE/NASTRAN 

Format; (12) 

Example; (Card No. 18) 

+ 1 


The number in the bracket refers to the card numbers in Table 4-2 for 
the given example. 
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4.2.2 Iteration Loop Control Flag — NFLAG Card 


-Function; - Controls the iteration loops INNER and ITER. 
Format; (12) 

Example; (Card 19) 

0 

Remarks ; (1) NFLAG is always 0 in 'START' file. 
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4.2.3 Problem Control — Title Card 

Function; Defines the title of the problem. 

Format; ( 1 2 A 6 ) 

Example; (Card 20) 

HIGH VELOCITY IMPACT -- DEMONSTRATION PROBLEM 
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4.2.4 problem Control Parameters — Integer Parameters Card 


■ Function; 


D.efines .the geometric, time and" material 
parameters for a given problem. 


Format; (1114) 


Variable 

Column 

Format 

Description 

IORDC 

1-4 

14 

Order of the element in the impact zone 

IORDL 

5-8 

14 

Order of the element in L zone 

c 

NFST 

9-12 

14 

Total number of the free surface nodes 
in CELFE substructure at t = 0 

INTFT 

13-16 

14 

Total number of the impact nodes at t = 0 

ISOT 

17-20 

14 

Target material; > 0 (see Remark 1) 

ISOP 

21-24 

14 

Projectile material; > (see Remark 1) 

IUNIT 

25-28 

14 

Unit of input data; 
= 1 Metric unit 



- 

= 2 British unit 
(see Table 4-1) 

ITGIV 

29-32 

14 

Total time steps assigned for a specific 
run 

ICOND 

33-36 

14 

Parameter for generating initial data: 

= 0 read data from input data card (default) 
= 1 generate data from main program 

ITER 

37-40 

14 

Number of time steps at the start of a 
specific run; 

Fresh start = 0 (default) 

Restart > 0 
Stop = ITGIV 

NSLIDE 

41-44 

14 

= 0 normal impact (default) 
= 1 oblique impact 


Example: (Card 21) 


1151410281 0' 
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Remarks! (1) Both ISOT and ISOP may be assigned to the following values; 
= 0 isotropic materials 
= 1 unidirectional composites 

> 1 other types of anisotropic materials yet to be formulated. 
(At present, all materials other than isotropic and uni- 
directional composite must be treated'as a general ani- . 
sotropic -material. ) 
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4.2.5 Computation Control Parameters — A, ALPHA, and TIME Card 


Function; Defines the relaxation factors for the multistep 

iteration scheme and the starting time for a 
specific run. 


Format; (3F10.4) 


Variable 

Column 

Format 

Description 

A 

1-10 

■SB 

Multiplier of time step (Remark 1) 

ALPHA 

11-20 

F 10.4 

Relaxation factor in multi step pro- 
cedure (Remark 1) 

TIME 

21-30 

F10.4 

Starting time at present run 


Example; (Card 22) 


4.0 O.xO 0.0 


Remarks; (1) The definitions of A and ALPHA are defined in Eq. (5.36) of 

Part I. The values of these parameters depend on the specific 
problem. Computational experiments indicated that 

1.0 < A < 4.0 
0.0 < ALPHA < 1.0 

A will be increased as the impact velocity increases. 

(2) The default value of TIME = 0, representing a fresh start. 
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4.2.6 Initial Data Card 


Function; Specifies the impact velocity vector and the 

dimensions of priori assigned impact zone. 


Format: (6F10.5) 


Variable Column 

Format 

Description 

V(l) 1-10 

V (2) 11-20 

V(3) 21-30 

F 10.5 
F 10.5 
F10.5 

Impact velocity 

Components along x, y, and z-axis, 
respectively 

DIMX 31-40 

DIMY 41-50 

DIMZ 51-60 

F10.5 

F10.5 

F10.5 

Dimensions of impact zone along x, y, 
and z-axis, respectively 


Example; (Card 23) 


0.0 0.0 

-7.5600+3 

2.0000+0 


2.0000+0 

0.0820+0 
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4.2.7 Material Properties — p^, p p , p p , Y p , Y p and Card 


Function; Specifies initial material data. 

Format; (7E10.4) 


Variable 

Column 

Format 

Description 

RHOT 

RHOP 


E 10.4 
E10.4 

Initial density for the target and pro- 
jectile materials, respectively 

TMIU 
PMIU~ ' 

21-30 

.31-40 

E10.4 
E 10.4 

Isotropic shear moduli for target and 
projectile materials, respectively 

TYLD 

PYLD 


E10.4 
E10.4 ' 

Isotropic yield strength for target and 
projectile materials, respectively 

SMIU 

61-70 

E10.4 

Coulomb's friction coefficient 


Example: (Card 24) 


7.3000-2 

5.1200-2 

0.0 

2.7027+3 

0.0 


6.0000+3 

1.0 





Remarks; (1) When ISOT / 0, set TMIU, TYLD = 0. 

When ISOP / 0, set PMIU, PYLD = 0. 


; 
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4.2.8 Mesh Data Card 


Function; Specifies the nodes and elements in various zones. 

Format; (1414) 


Variable 

Column . 

Format 

Description 

NPS 

MM 

14 

Total number of nodal points in the 
impact zone 

NET 

5-8 

14 

Total number of elements in the 
impact zone 

NPPJ 

9-12 

14 

Number of the first node in the 
projectile 

NEPJ 

13-16 

14 

Number of the first element in the 
projectile 

NPPJT 

17-20 

14 

Number of the last node in the pro- 
jectile 

NEPJT ' 

21-24 

14 

Number of the last element in the 
projectile 

NPTR 

25-28 

14 

Number of the first node in the 
transition zone 

NETR 

29-32 

14 

Number of the first element Ln the 
transition zone 

NPLG 

33-36 

14 

Number of the first node in L zone 

c 

NELG 

37-40 

14 

Number of the first element in L 

c 

zone 

NPST 

41 -44 

14 

Total number of nodes in CELFE 
substructure 

NELT 

45-48 

14 

Total number of elements in CELFE 
substructure 

MAXDOF 

49-52 

14 

Maximum numbering of degree of 
freedom in the entire system 

NGD 

53-56 

14 

Total number of nodes in the entire 
system 


Example; (Card 25) 


76 

33 

13 

3 

16 

3 


62 

30 

77 

34 

76 

33 


648 

103 




- 
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Remarks: (1) The finite element mesh numbering must start from the 
-'CELFE structure (cf. Section 2. 10). 

(2) MAXDOF is the maximum numbering of the. degree, of 
freedom' i't may be larger or equal to the actual total 
number of degrees of freedom in the entire system, 
depending on the NASTRAN mesh numbering. 
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4.2.9 Boundary Condition Specification Card 


Function; Specifies the total nodal numbers of boundary 

conditions for momentum, energy, density, 
stresses, and displacements in CELFE sub- 
structure, 


Format; (1714) 


Variable 

Column 

Format 

Description 

IBDVT(l) 

1-4 

. 14 

Total number of nodes for momentum 

IBDVT(2) 

5-8 

14 

boundary conditions along the x, y, and 
z-directions , respectively 

IBDVT(3) 

9-12 

14 


IBDVT(4) 

13-16 

14 

Total number of nodes for energy 
boundary conditions 

IBDVT(5) 

17-20 

14 

Total number of nodes for density 
boundary conditions 

IBDST(1, 1) 

21-24 

14 

Total number of nodes for stress 

IBDST( 1, 2) 

25-28 


boundary conditions 

IBDST(3, 3) 

5 3-56 

14 


IBDIST(l) 

57-60 

14 

Total number of nodes for transla- 

IBDIST(2) 

61-64 

14 

tional displacement boundary condi- 
tions 

IBDIST(3) 

65-68 

14 



Example: Card 26) 


20 

20 

0 

15 

115 

15 

10 

10 

10 


20 

10 

10 

10 

10 

10 

20 

20 

0 
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4.2.10 Mesh Generation — NOD(I, J) Cards 


Function; . -Generate the finite element' mesh for CELFE 
model. Here, 

NOD(I, J) = Global number of the node in 
the element I 

I = 1, . . . , NELT (total number of nodes in CELFE) 

J = 1, . . . , NPE (total number of nodes in an element) 


IORDC or IORDL 

1 

2 

3 

NPE 

8 

20 

32 

Format 

814 

2014 

3214 

No. of Cards per 
Element 

• 1 

1 

2 


Example; (Cards 27 through 59) 


1 

4 

10 

7 

2 


5 

11 

8 




Remarks ; (1) Cf. Section 2.10 for details. 

(2) When only one layer of elements are used for any direction 
in a given problem, at least quadratic elements should be 
employed. 
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4.2.11 Nodal Coordinates — GRID Cards 


Function; Specify the nodal coordinates for the CELFE model 

Format: (8A1, 218, 3F8.4) 


Variable 

Column 

Format 

Description 

GRID 

1-8 

8A1 


N 

9-16 

18 

Number of node 

KODE(N) 

17-24 

18 

Node I.D. number; 

= 0 Euler Lan mesh 
-- 1 E-L mesh 

= 2 Interfacial mesh for impact 

(E-D) zone and L, zone 

= 3 L mesh 
c 

(cf. Remarks 2, 3) 

X(N, 1) 

25-32 

F8.4 

Nodal coordinates 

X(N, 2) 

33-40 

F8.4 


X(N, 3) 

41-48 

F8.4 



Example; (Cards 60 through 135) 


GRID 10 2 0.15 0.15 0.0 


Remarks; (1) Each card per node is required. 

(2) In order to prevent possible error when the projectile pene- 
trates to the point near the opposite side, it is suggested 
that the KODE value of surface nodes opposite the impact 
surface is set to 2 (see example). 

(3) To reduce computation time for problems with high enough 
impact velocity when penetration is likely to occur, the 
nodes in the vicinity of the impact point may be set to 0 

a priori. Otherwise, all nodes in the impact zone should 
be set as 1 at t = 0. 
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4.2.12 Free Surface Nodes — NFS(I) Cards 


Function; 


Format: 

Example; 


Identify the free surface nodes in CELFE model, 

NFS (I) — Global number of nodes on the free 
surface 

I = 1, . . . , NFST (total number of free surface nodes) 

(2014) per card 

(Cards 136 through 138) 


1 4 6 7 9 


4-22 





4.2. 13 Initial Impact Surface Nodes — INTF(I) Cards 

. Function; Identify the nodes on the impact surface at t = 0. 

INTF(I) — Global number of nodes on the impact 
surface 

I = 1, , INTFT (total' number of nodes on the 

initial impact surface 

Format; (2014) per card ' 



Remarks: (1) Impact surface may consist of only one node. 
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4.2.14 Anisotropic Material Stiffness Coefficients — C(N,I, J) Card(s) 

Function; Specifies stiffness coefficients Cy, i, j = 1, ... 6, 

of anisotropic materials for the entire CELEE 
system on the global coordinate systems. 


Format; (214) for each given (1, J), and follows by (8E10.4) 

per card for (C(N, I, J), N. = 1, .... . NPST). 


Variable 

Format 

No. of Cards 

Description 

(I, J) 

214 

One for 
each pair 
of (I, J) 

Indices of Cjj. Set I > 7 for 
ending the reading. For Cij = 
Cij, i / j, choose either one 

C(N, I, J) 

8E10.4 

NPST/ 8 

Stiffness coefficients on 
global coordinate system 


Example: (Nil, since ISOT = 1, ISOP = 0) 

Remarks ; (1) This set of cards must be used when either ISOT > 1 or ISOP > 1. 
(2) When ISOT and ISOP < 1, skip the set. 
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4.2.15 Anisotropic Material Properties for Target — SLT(I, J), SLC(I, J), 
E(I, J) and PNIU (I, J) Cards 


Function; 


Specify anisotropic material properties for target 
on global coordinate system. 


Format: 


(8E10.4) per card. 


Variable 

Format 

No. of Cards 
per Variable 

Description 

((SET (I, J), 
J=1j 3),I= 1, 3) 

9E10.4 

2 

For I=J; 

SLT(ImJ) = (uniaxial tensil 

strength) 

For I^J; 

SET (I, J) = (uniaxial shear 

strength) 

((SLC(I, J), 
J=l, 3), 1=1, 3) 

9E10.4 

2 

For I=J; 

SEC(I, J) = (uniaxial com- 

pression strength) 

For I^J; 

SLC(I, J) = S^ijS (uniaxial shear 
strength) 

((E(U), 

J=l, 3), 1=1, 3) 

9E10.4 

2 

For 1= J ; 

E(I, J) = E tf;; (elastic modulus) 
For I/J; 

E(I, J) = (shear modulus) 

0(pNru(i, J), 
J=l> 3), 1=1, 3) 

9E10.4 

2 

Poisson's ratio. (Set 0 values 
for I=J) 


Example; (Cards 140 through 147) 


((SLT(I,J), J= 1, 3), 1= 1, 3) 


8.1+3 

9.1+3 

8.9+3 

9-1+3 

0.199+6 

9.1+3 

8.9+3 

9.1+3 


8.1+3 


Remarks; (1) When ISOT = 0, skip these cards. 
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4.2.16 Anisotropic Material Properties for Projectile — PSLT(I, J), PSLC(I, J) 
PE(I,J), and PPNIU(I, J) Cards 

Function; Specify anisotropic material properties for pro- 

jectile on global coordinate system. 

Format; (Same as Section 4.2,15) 

Example; (ISOP = 0,.Nil) 
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4.2.17 Boundary Nodes for Conservation Equations — 1BDV(I, J) Cards 


Function; Identify the nodal number of boundary condition 

nodes for momentum, energy and density. 

' til 

IBDV(I, J) — Global number of the I boundary node 

for the J 1 variable 

I = 1, . . . , IBDVT (defined in Section 4.2.9) 

J = 1, 2, 3 — momentum in x, y, and z-axis, respec- 
tively 

= 4 — energy 
= 5 — density 


Format; (2014) per card per J. 

Example; (Cards 148 through 151) 


(IBDV (I, 1), 1= 1, . . . , 20) 

1 2 3 7 76 


Remarks; (1) When IBDVT(I, J) = 0, skip the card. 
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4.2.18 BoundaryNod.es for Constitutive Equations — IBDS(I, J, K) Card 

• „ i. . 

Function: Identify the nodal number of boundary condition 

nodes for stresses. 

A.T_ 

IBDV(I, J, K) — Global number of the I boundary 
node for component of the 

deviatoric stress tensor 

I = 1, . . . , IBDST (defined in Section 4.2.9} 

Format: (2014) per card per component; the cards should be 

arranged according to ((IBDS(I, J, K), K = 1, 3 ), J = 1, 3) 

Example: (Cards 152 through 160) 

(IBDS(I, 1, 1), 1= 1, 10) 

62 64 65 67 68 70 71 73 74 76 

Remarks; (I) If IBDST(I, J, K) = 0, skip the card. 
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4.2.19 Boundary Nodes for Displacement Vector — IBDIS(I, J) Cards 


• Function; Identify the nodal number of boundary condition 

nodes for displacements. 

IBDIS{Ij J) — Global number of the I^ 1 boundary node 
for J^h component of the displacement 
vector. 

I = 1, . . . , IBDIST (defined in Section 4.2.9) 
Format; (2014) per card per component 


Example; ' 


(Cards l6l, 162) 



Remarks; (1) When IBDIS(I, J) = 0, skip the card. 


4-29 






4.2.20 Time Integration Control — Time Interval DT (I) Cards 

Function: Assign time steps for ITER loop (time integration 

procedure). 

DT(I) — Time step (jLtsec) 

1=1,..., ITGIV (defined in Section 4.2.4) 

Format; (8F10.4) per card. 

Example: (Card l63) 


0.2 0.2 
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4.3 INPUT PROCEDURE FOR NASTRAN 


Rigid format 9, "Direct Transient Analysis," is selected to perform 
the NASTRAN portion of the analysis. As aforementioned, a DMAP alter is 
added to the format to control the CELFE/NASTRAN execution. The basic 
input preparation for the NASTRAN portion in CELFE/NASTRAN analysis 
follows the original rigid format 9. The user is presumably familiar with 
the applications of the NASTRAN program, and thus the detailed description 
of the input for the rigid format will not be repeated here (cf. Ref. 3 for in- 
struction). Instead, in what follows, only the uncommon input procedure 
will be presented. 

4.3.1 DMAP Alters for Rigid Format 9 

The basic rigid format 9 provides all of the module operations required 
for the transient analysis. A DMAP alter program is added to the rigid format 
to read elemental matrices generated by CELFE, sum the matrices and solve 
the matrix equation AX = B for the "primary variables" and to add the CELFE 
stiffness matrices (K1,K2, and K3) to the NASTRAN system stiffness matrix 
(KGGX). Alters are also used to output to disk, the splution vector X for 
the "primary variables" and the NASTRAN data block UVN which contains the 
displacement, velocity and acceleration vectors from each time step solved 
by the NASTRAN transient response analysis. 

The runstream for the entire alters is stored in the file 'NA’Sl' as 
shown in Table 4-3 (for the example described in Section 3.3). Within the 
rigid format 9 (e. g. , cards 73 through 191 in Table 4-3), any NASTRAN 
element model can be used, provided the linking elements are properly 
chosen (within NASTRAN) for connecting the CELFE and NASTRAN mesh. 

The preparation of bulk data for all admissible models follow the original 
rigid format as mentioned. The example given in Section 3.3 demonstrated 
a typical model together with the procedure utilized to prepare its" data. 
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Table 4-3 

DMA-P ALTER LISTINGS - NASI FILE 


WD AT A , L NASI. .NASI, 

— J»ATA-r-Rt70-S J2/29-17-JCSJ36 


1, WHOG.N 

2 % ~»X«T .NASTHAN.LINKI t - “ — ' 

3. NASTRAN B0FFS1ZE»871 

Ti io-nastran»celfe 

5. APP DISP 

7. TIKE AO 

6; D I AG 8,21 — " - - 

9, ALTER 2 

II. S ASSEMBLE AND SOLVE 11 PRIMARY VARIABLES 

12i P AH AM //c.n.nop/v.n,- TKUE — 1 * • -• 

13. PAKAM //CiN,HOP/V,NiFALSE»*1 S 

{ H PAKAM -- //C.N,ADD/YiN>NWEL/V;Y,NUHNP S' * 

15. 0UTPUT2, ,»,i//C,N,-1/C,N,1h S 

rsi INPUT T2 — / l i n/C}Mi-l/C jN i 15-S 

17 . * 

ie; LABEL OUTER S '• * 

IV. PARAH //C,N.SUB/Y»Y,NOEHU/V|Y*NOEQU $ 

20 » COND bOTTOM l ,NOEQU-S 

21, 1NPUTT2 / A l » B 1 , , , /C » N » Q/ C » N » l S S 

tT _ AOO a l ,/AX -i 

23. AOO B1,/8X S 

25. LABEL INNER S 

26 T PAKAM ~ / / C , N , S U8/ V » Y> NUMNP/ VT Y > NUMNP“ S 

27. COND B0TT0H2 .NUHNP S 

2BT £ QU 1 V AX , AT /FALSE -S — 

2V. EQU1V BX.BT/FALSE S 

30; 1NPUTT2 /A,B,,,/V,t»BL0K/C,Uil5 S , - — 

31, ADO A.AA/AT S 

32~. EQUIV --- AT.AX/TRUE-# — 

33, ADO B.BX/BT S 

3^^ EOUIV BT|BX/TRUE-S 

35, REPT INNER. 31 S 

37 ! LABEL BOTTOH2 S 

• 38. NATPRN AT , B T . , 1 // * - - - 

39. SOLVE AT .HT/X/V.Y .SYM/C.N.l/C.N.l/C.N.l 5 

MAI PRN X, , 1 ,//• S 

81. OU t PU T 2 X. , »>//C,N.O/C|H,l<t s 

8 2. PAftAM //C,N,SUB/V,Y,NUHNP/V,N,NUEL S — ■ - 

8 3, REPT OUTER*!! * 

85. LABEL BOTTOHJ S 

0UTPUT2, ,»,,//C,N,-9/C,N,n S — 

87. S 

8 B • ALTER 30 

89. S 

-50. » ASSEMBLE STIFFNESS MATRIX K6G — • 

51, PAKAM //C.N ,SUB/V,-Y .NUHNP/V .N.NUEL $ 

52-* 1NPUTT2 / 1 , 1 i/C »N,-1/C*N , I 7 S — — 

53. LAfitL KLOUP * 

58 • ' - PAKAH //C,N.SUB/V,Y,NUMNP/V,Y,NUHNP $ 


(Continued) 
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Table 4-3 (Continued) 


73. 

— 9 9,- 
75. 

— 76.- 
77, 

79. 

— 60r- 
61. 

8 2 .- 

83. 

— — 0 9-, — 
65. 

fl b -w— 

87 . 

— 8 8 ,— 

89. 

9 1 . 

? 2 »- 

93. 

9 9.- 

95. 


CORD KtND.NUHUP S 

• EQUI V — - KGGX iKCSG/FALSE -S -- 

INPUT! 2 /K1,K2,K3,,/V,Y»B«-0K/C,N,S7 $ 

AOOS Kl ,K2,K3,KG6X,/KG<JG -S 

EQUIV KGGG iKGGX/THUE * 

-fiePT-KfcOOP ,32-S 

LABEL KENO S 

-HATPRN- KGGX ,,,,//- S 

S 

S 

-* -output-0 i sp -and— velocity— to celfe ozjlI 

UME.RGE USETD,UDVT,/UVN/C,N»N/C,N,D/C,N,S 3 

-HATPRN - UVN, - — - ; 

OU1PUT2 UVN, > , ,//C.N,-l/C,N,l2 S 

enoalter 

-CENO 

TITLE- 5.0 X 5.0 X 0.0820 INCH THICK PLATE 

-SUBTITLE- AS5EMBLE-/1ND- SOLVE -PR 1 HARY - V AR l A8LES 

LABEL- ONE TIHE STEP TRANSIENT ANALYSIS 

HPC-1 

-SPC- 1 

TSTEP-I 

output 

-SEt I- 4 2 THRU- 76,206, 231.234 

DISP-I 

— VELO— 1-- 

BEGIN BULK . 

-6 PCHI CONTAINS- 0AREA, -GRID and TSTEP— CARDS-FROM CELFE, -CHANGE -EACH-DT- 
W AD D . P PCHl, 

PARAH SYH 0 


PARAH - 8L0K-- - 

PARAH SYH 

-PARAH NOLQU 1 1 

PARAH NUHNP 32 

CELAS2-- 100 I 1 .*3 

CELAS2 1002 I, +3 

-CELAS2 - 1 003 - - - 
GROSET 


1 .*3— — 236--. 
I. +3 234 

l.*3 236 — 


2 

3 


-C0HD2R- 
♦ 222 
PUUAD2 - 


1.0 

201 - 


- 0 . 0.0 — 


956 

0.0 0 1 


, Q ± Z22 - 


99. 

CGUA02 

203 

201 

175 

209 

210 

172 


— 100. 

CSJUAD2 - - 

— .209 

20 1 

209 -- • 

205 - - 

211 ■ 

210 • 

- - - 

101. 

C0UA02 

205 

201 

205 

206 

212 

211 


1 ft 7 t 

-CQUAD2 .. 

.„2oa 

.20 1 - 

l 72 , 

-2 l n - . 

2J 

- *6? ... 


103« 

C <JU AD 2 

209 

201 

2 1 0 

211 

217 

2 1 6 


— 10 9* 

CQUA02 

— 210 

201 

211 — 

212 

218 

. 217 

. 

t U 5 • 

0QUA02 

211 

201 

163 

166 

220 

219 


— 106. 

CUUAD2 

- 2 1 2 - - 

201 

1 66 

169 - 

221 

- 220 

— 

107. 

C0UAU2 

213 

201 

169 

216 

222 

221 


j os« 

— CQUAD2- 

219 

ZOl .. 

216 _ 

2 l 7- 

223- _ 

.222 . 


109. 

CUUA02 

215 

201 

217 

219 

229 

223 


— 1 10.- 

CQUAD2 

216 

201 

219 

220 

224 

225 

— 
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Table 4-3 (Continued) 



CBAR 

3 

X 

AS 

1 AA 

0.0 

1*0 

0.0 

C B A R 

4 

— I 

-J 6 A 

- -A7 

0.0 — 

- 1.0 

0.0 

CBAR 

5 

1 

A8 

16? 

0.0 

1.0 

0.0 

CB A K - 


J 

_J i9._ 

70 

o.o — 

j ,0 

-0.0 

CBAR 

7 

I 

71 

172 

0.0 

1.0 

0.0 

CBA« 

- - 8 — • 

- 1 - - 

172 

73 

0*0 

1.0 

0.0 

CBAR 

V 

1 

74 

175 

0.0 

1 .0 

0.0 

CBAR 

... JO 

l -- 

175 

76 

0.0 

1.0 

- 0.0 

PBAR 

1 

2 

10» 

10. 

10. 

20. 


hati 

2 

— 3 » J5+06 

_ 

0.17 

0*073 





MPC 

I 

1 63 

1 

1 .0 

63 

1 

•1.0 

HPC 

1 

163 

2 

1.0 

63 

2 

-1.0 
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Table 4-3 (Concluded) 



163 
-1 66 - 

164 
• 166 - 

169 
- 169 - 
169 
- 172 - 
172 
-172 
175 
-17 5 - 
175 
15 
15 
-15 
1 

- 29 - 

29 

29 - 

2 

-2 


ENpDATA 

-«AOO,P-«NASTBAN 


3 

-I- 

2 

-3 
1 

- 2 - 
3 

-1 — 

2 

- 3 - 

1 

-2 

3 

- 1 - 
13 
-9 5 
79 
-l — 
13 
-33 
62 


1 .0 
1 . 0 - 
1 <0 
l .0 
1 .0 
-»•• 0 - 
1 .0 
-1 . 0 - 
1.0 
1 . 0 - 
1 .0 
l . 0 - 
1 .0 
- 2 - 
15 
- 96 - 
75 
- 2 - 


-1t 1000*- 

iGONtRU- 


19 

39 — 

63 

10 


- i - r — 


63 

-66 — 
66 

-6 6 

69 
- 69 - 
69 
-72 
72 
—TI- 
TS 
-IS- 
IS 
-3 “ 

29 
- 59 - 
76 
-3 — 

17 

- 97 - 
69 


3 

-1 

2 

-3 

1 

2 - 

3 

I --- 

2 

3 - 

1 

-2 - 
3 

7 - 

30 

60 - 


- 9 — 

IS 
•96 ■ 


- 1.0 
— 1 .0 
- 1.0 
--1 .0 
- 1.0 
— 1 » 0 - 
- 1.0 
--1.D 
- 1.0 
-- 1 .0 ■ 
- 1.0 
•1 .0 
- 1.0 
-8 - 
31 

-61 


9 — 
99 


19 

- 99 - 


32 


♦ TDI 


- ENDf - 


£no data. 
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4.3.2 User's Guide for Inputs in DMAP Alter Program — ‘NASI 1 File 

The preparation of input data for the alters- can- be described by illus 
trating the ’NASI’ file for the demonstration example as follows: 


Card No. 

1 

2 

3 

6 

9 

12 

13 

14 

15 

16 
18 

19 

20 

21 

22 

23 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 


DESCRIPTION OF NASI FILE 

Description 

Suppress any heading previously defined. 

Begin execution of NASTRAN program. 

Set NASTRAN buffer size to 871 -words. 

Select rigid format 9 for transient analysis. 

Insert DMAP alter cards 10 through 47 into the rigid format program 
after DMAP No. 2. 

Initialize DMAP parameter TRUE = -1. 

Initialize DMAP parameter FALSE = +1. 

Calculate the number of CELFE elements (NUEL) in current analysis, 

NUEL = NUMNP+1. Where the user defines NUMNP on a bulk data PARAM 
input card (see card 91). 

Write a tape header record on file 14; do not rewind. 

Read the tape header record on file 15; do not rewind. 

Top of outer loop. 

Decrease the number of primary variable equations solved in NASTRAN by 1. 
NOEQU = NOEQU - 1, where NOEQU is defined by the user on a bulk data 
PARAM input card (see card 90). 

If all equations have been solved, jump outside outer loop (Card 45), LABEL 
BOTTOM 1. 

Read first pair of element matrices A1 and Bl from file 15. 

Transfer A1 to AX. 

Transfer Bl to BX. 

Top of inner loop which sums the element matrices. 

Decrease the element counter NUMNP=NUMNP- 1. 

Jump to LABEL BOTTOM2 if NUMNP=-1 (all element matrices have been 
summed).' 

Break the equivalence between AX at AT. 

Break the equivalence between BX at BT. 

Read the A and B matrices for the next element from file 15. Do not rewind 
file 15. 

Add the element matrix A to the total assembled matrix AT. 

A + AX = AT. 

Equivalence the matrices AX = AT. 

Add the element matrix B to the total assembled matrix BT. B + BX = Bl. 
Equivalence the matrices BX = BT. 

Jump to the top of INNER loop (Card 25), repeat 31 times. Note the number 
31 may be set to an arbitrarily large number, looping will then be terminated 
by the conditional jump at card 27. 

(Continued) 
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37 LABEL, BOTTOM2. 

38 Print the assembled matrices AT, BT. This statement may be removed to 
minimize printout. 

39 Solve the matrix equation A • X=B using unsymmetric matrix decomposition. 

40 Print the solution Vector ,X. 


41 

42 

43 

45 

46 
48 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

64 

67 

68 
69 
71 


Write the solution vector onto file 14; do not rewind. 

Reset the parameter NUMNP=NUEL- 1. NUMNP will then be used in the 
inner loop for the next primary variable to be solved by NASTRAN. 

Jump to the top of the OUTER loop (card 18); repeat 11 times. Note : If the 
user requires less than 11 parameters the parameter NOEQU should be 
reset on the PARAM bulk data card (card 90). 

LABEL BOTTOM1. 

Close file 14 with a rewind. 

Insert DMAP alter cards 49 through 63 into the rigid format program after 
DMAP No. 30. 

Reset the parameter NUMNP=NUEL-1 for stiffness matrix loop. 

Read tape header record on file 17; do not rewind. 

LABEL KLOOP. 

Decrease the element counter NUMNP=NU11MP-1. 

Jump to LABEL KEND if NUMNF=-1 (all element stiffness matrices have 
been summed). 

Break the equivalence between KGGX and KGGG. 

Read CELFE elemental stiffness matrices Ki, K2 and K3 from file 17, do 
not rewind. 

Add the CELFE stiffness matrices to the NASTRAN stiffness matrix (KGGX). 
Equivalence matrix KGGG = KGGX. 

Jump to LABEL KLOOP (Card No. 52). If all CELFE elements have been 
assembled, terminate the looping and continue with the normal rigid format 
DMAP instructions. 

LABEL KEND. 

Print the assembled stiffness matrix KGGX. The user may remove this 
statement to minimize the printout. 

Insert DMAP alter cards 65 through 70 into the rigid format program after 
DMAP No. 141. 

Merge the S-set (single point constraints) with the D-set solution vector 
(UDVT) to form the N-set (UVN) which can be read by the CELFE program. 

Print NASTRAN data block UVN. This data block contains the displacement, 
velocity and acceleration vectors for the transient analysis. 

Write a header record followed by the UVN data block on file 12. Continue 
with the remaining NASTRAN DMAP instructions. 

End of DMAP alters. 


72 End of Exec control deck. 

73-85 NASTRAN case control deck. Insert the DAREA, GRID, TIC and TSTEP 

cards generated by CELFE. These cards are updated every CELFE iteration. 

88-91 Parameters input to NASTRAN: 

BLOK=0, do not rewind file 

SYM=0, use unsymmetric SOLVE logic 

NOEQU=ll, number of primary variables 

NUMNP=32, one less than the number of CELFE elements present in problem. 
92-191 Bulk data defining the NASTRAN finite element model. 

192 NASTRAN control card file for execution of the NASTRAN program. 
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It is important to note that several PARAM cards must be defined in 
the bulk data; 


BLOCK = 0 
SYM = 0 
NOEQU =11 


NUMNP = N-l 


Used to control file positioning by the 
INPUTT 2 module. 

Indicates the unsymmetric solution 
technique is used for module SOLVE. 

Number of "primary variables" to be 
solved. For 0<ISOT, ISOP < 5, there 
is always 11 variables; 3 components of 
momentum vector, total energy, density 
and 6 components of stress tensor. Other- 
wise, NOEQU = 14. 

With N = number of CELFE elements. 


In addition, for different problems with different CELFE elements, card 35 
should be changed to its correct values, NUMNP- 1 (or N-2). 


4.4 OUTPUT IN CELFE 


The output of the present program is also divided into two parts, a 
NASTRAN output printed in NASTRAN, and a CELFE output composed of the 
following sets. 


Output Listings; 
Output Set No. 

1 

2 

3 

4 

5 

6 {*) 

7 <*) 


Description 

Nodal no., energy, density, pressure 
Nodal no., stresses (a..) 

Nodal no., free surface coordinates 

Xj, x 2 , x 3 

Nodal no., KODE, updated mesh x , 
x 2’ x 3 

Nodal no., displacements u^, u^, u^, 
velocities v.,v 0 ,v 0 

l c. 5 

Failure number, nodal number of the 
failure node 


Nodal no., stiffness coefficients, C. 


U 


Remark: (*) If there is no failure, skip the 6th and 7th sets of output. 
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Cards Punched 


All the data for the last time step, i.e., ITER = ITGIV, are punched using 
E -format for variables, and I-format for integers. When restart is needed, 
replace the cards from 27 to 147 in file 'START 1 by this set of punched cards. 

Units; 

The units used in the output are identical to their counterparts in the 
input, and were summarized in Table 4-1. 

4.5 EXECUTIONS 

The executions of the present program vary according to the problems 
and the options desired by the user. In what follows, only those basic ones 
will be described. 

4.5.1 In-Core CELFE Executions 

For in-core CELFE run, only 'LEE' file and 'START' file are needed, 

e.g., 

@ ASG, T LEE, F///500 

@ ASG, T START, F 

@ USE TPF$., LEE. 

@ ADD', P START 

For restarting the in-core run, replace the cards from 27 to 147 in file 
'START' by the output cards punched from the previous run. 

An alternative may be used by assigning a 'RESTR' tape fcrr each run, 
and store all data in internal file 16 into 'RESTR' file for the subsequent re- 
start. For example, in the fresh start, assign a 'RESTR' tape as follows; 
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@ ASG, T 


RESTR, X,. 


@ ADD, P START 

@ COPY, GMC 16, RESTR 


Then, for each restart, reassign the 'RESTR' tape. In addition, replace the 
'START 1 file with a data file 'RESTART', e.g., 


@ ASG, T 


RESTR, T, 


@ ADD, P 
@ COPY, GMC 


RESTART. 
16, RESTR 


where the 'RESTART' file reads 


@ DA TA , L RESTART 

@ASG, T PLT1.F///2000 
@ USE 12., PLT1. 

@ ASG, T INPT, F///2000 
@ASG, T INP1, F///2000 
@ASG, T INP2, F///2000 
@ASG, T INP3, F/// 2000 
@USE 14., INPT. 

@USE 15., INP1. 

@USE 16., INP2. 

@USE 17., INP3. 
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@ ASG, A PCH2. 

@ USE 18., PCH2. 

@ ASG, T PCH1.F///1000 
@ ASG, C PCH3.F///1000 
@ USE 19., PCH3. 

@ COPY, RESTR, 16 

@ BRKPT PUN CH $/ PCH 1 
@ XQT CELFE 

+0 

+0 

@ BRKPT 
@ FREE, B 
@ FREE, B 
@ COPY 
@ END 


PUNCH$ 

18. 

19. 

PCH3., PCH 2. 


4.5.2 Fresh Start of CELFE/NASTRAN Run 

The control cards for starting the CELFE/NASTRAN run are illustrated 
in Table 4-4. 


Table 4-4 

CONTROL CARDS FOR CELFE/NASTRAN RUN - FILE 'RUN1' 


30ATA.L RUN 1 » 

. DATA 7 RL7Q-5 0 1 / 09 -2 3 : 4 2_! 5_2 

1». 9 A S G , A START. 

2, SASG.A LEE. 

3. a A S G , A NASI. 

3 A S G , A PCH2. 


S.~ 

d A S G , A LOUP. 

6 . 

SASG.A NASTRAN. 

7. 

SASG.A OBJ. 

8. 

OUSE TPFS..LEE. 

9. 

aAOD.P STATT. 

10. 

SCPDMPH.OO 

1 1 . 

PR T 15,30 

3 2. 

PR T 17,30 

13. 

SADD.P LOOP. 

1>I. 

aAOD.P LOOP. 

15. 

S A 0 D , P LOOP. 

1 6 . 

SAOO.P LOOP. 

17. 

SADD.P LOOP. 

18. 

a phd , e 

19. 

ariN 

DATA. 
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4.5.3 R e s tar t CELFE/NAS TRAN R un 

As in the in-core option, data .file 'START'- -wi-11 not be used in the 
restart of CELFE/NASTRAN run. Instead, a 'RESTR' tape should be pre- 
pared to store all data in relevant files for the subsequent executions. The 
overall runstream reads 


@ 

Run Card 


@ 

ASG, T 

IN, T, 

@ 

ASG, T 

RESTR, T, 


@ 

@ 

PREP 

REWIND 

RESTR. 

@ 

ASG, T 

PLT1.F///2000 

@ 

ASG, T 

INPT, F/// 2000 

@ 

ASG, T 

INP1, F///2000 ' 

@ 

ASG, T 

INP2, F///2000 

@ 

ASG, T 

INP3, F/// 2000 

@ 

USE 

12., PLT1. 

@ 

USE 

14., INPT. 

@ 

USE 

15., INP1. 

@ 

USE 

16., INP2. ■ 

@ 

USE 

17., INP3. 

@ 

ASG, A 

PCH2. 

@ 

ASG, T 

PCH1, F///1000 

@ 

ASG, C 

PCH3, F/// 1000 

@ 

USE 

18., PCH2. 

@ 

USE 

19., PCH3. 

@ 

COPY, G 

RESTR, PLT1 

@ 

COPY, G 

RESTR, 14 

@ 

COPY, G 

RESTR, 15 
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@ 

COPY, G 

RESTR, 16 

@ 

COPY, G 

RESTR, 17 

@ 

COPY, G 

RESTR, PCH 1 

@ 

COPY, G 

RESTR, PCH2 

@ 

COPY, G 

RESTR, PCH3 

@ 

ADD, P 

LOOP. 


@ 

ADD, P 

LOOP. 

@ 

REWIND 

RESTR. 

@ 

COPY, GMC 

PLT1, RESTR 

@ 

COPY, GMC 

14, RESTR 

@ 

COPY, GMC 

15, RESTR 

@ 

COPY, GMC 

16, RESTR 

@ 

COPY, GMC 

17, RESTR 

@ 

COPY, GMC 

PCH 1, RESTR 

@ 

COPY, GMC 

PCH2, RESTR 

@ 

COPY, GMC 

PHC3, RESTR 

@ 

ADD, P 

LOOP. 


@ FIN 


C-2_ 
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Appendix A 

CELFE PROGRAM LISTINGS 
(File 1 LEE 1 ) 



XUTViiU feaOOd zQ 
SI 30'5/d ‘WWlOJdO 


ALNS 


DATE 010978 


SFOR.S ALMS i ALUS 

HSA E 3 -01/Q9/7a r 23:it3:Q2. t_lxl 


SUBROUTINE ALMS ENTRY POINT 000550 


TORAGF 

XTERNAL 

USED: COOE(l) 0,00604 }. DA 
. REFERENCES (BLOCK,’ NAME 

iTA (01 J 
") 

DO D 114 j 

BLANK, C p M M 0 N (.2 1 

qooopo 

— 


- 

- 

- .. 

— 

- 

— 

0003 


NERR3I 


















TORAGE 

ASSIGNMENT 

(BLOCK , TYPE 

, RELATIVE..LOCATION, 

NAME). 






m m 



».« ... 


0001 


nooi 72 

1 GL 

0001 


000063 

1426 

0001 


000122 

15 26 

0 001 


0002 1 2 

20L 

0001 


000245 

2076 

0001 


000275 

2166 

0001 


0004 1 7 

2 4 1 G 

0001 


000426 

2476 

0 001 


000345 

29L 

booi 


000367 

30L 

0001 


000371 

35L 

0001 


000476 

4 OL 

0001 


000516 

5 OL 

0 coo 

R 

000040 

A 

oooo 

R 

000020 

AMU 

UGUO 

R 

000010 

API 

0000 

R 

000011 

AP2 

0000 

R 

000000 

ATI • 

0 000 

R 

OODOOl 

AT2 

oooo 

R 

000025 

A 1 

00 0 0 

R 

000026 

A 2 

0000 

R 

00004 l 

B 

OOOO 

R 

000012 

BPO 

0 00 0 

R 

000013 

BP1 

oooo 

R 

000014 

BP2 

uooo 

R 

000002 

B TO 

0000 

R 

000003 

BT 1 

0000 

P 

000004 

8 T2 

0 00 0 

R 

000027 

BO 

uooo 

R 

000042 

BO 1 

oooo 

R 

000030 

B 1 

0000 

R 

000031 

B 2 

oooo 

R 

000022 

C 

oooo 

R 

OUOOIS 

CPO 

oooo 

R 

000016 

CPI 

U'HIO 

R 

000005 

CTO 

0000 

R 

000006 

CT1 

oooo 

R 

000032 

CO 

oooo 

R 

000033 

Cl 

ODOO 

R 

000021 

E 

oooo 

R 

000035 

ETA 

0000 

I 

000034 

I 

oooo 

I 

000043 

II 

oooo 


000046 

INJPJ 

OODQ 

I 

000037 

J 

0000 

R 

0000 2 3 

PHI 

0000 

R 

000017 

PHIP 

oooo 

R 

000007 

PHIT 

0 000 

R 

000024 

RHO 

OOOO 

R 

000036 

SUMV 


00101 

1* 

C0101 

2* 

00101 

3* 

00101 

4* 

00103 

5 + 

0 010 3 

54 

00103 

5* 

0 010 4 

5* 

00104 

5* 

00104 

54 

00104 

54 

00104 - 

si 

00 105 

5* 

G010S 

54 

00105 

5* 

00105 

. 54 

00105 

54 

00116 

54 

00116 

54 

00116 

54 

00127 

64 

0012 7 

74 

00127 

84 

CIO 1 ? 7 

94 

001 30 

104 


SUBROUTINE AL MS ( NPH ,NP,NN,NPJ,INTF,INT,NFRAC,RHOT ,_RHO P, VER , P 1 
C 

C LOS ALAMOS EQUATION OF STATE 

C 

INCLUDE STATEQ,LIST 
STATEO PROC 
C 

OIMENSION VER C N P M , 5 1 » P 11 ) ,INTF ( 1 ) 

C 

C 

C TARGET --- 80R0N/EP0XV 

c" ‘ ‘ “ 


DATA ATI T AT2,BT0,BT1 ,BT2,CT0,CT1 , PHI T/ 1 . 8 21 2, 4 . 35 09 , 0 .3 764 ,£.3287, 
1 1.0801 ,0.5531, 0.6346, 0.250/ ’ ' 7 


PROJECTILE SILASTIC 


END 


DATA API ,AP2,BPU,BP1 ,BP2,CP0,CP1 , PHI P/0 . 004 79 4 , 0 .'04 68 4, 0 . 3 39 69 , 
1 0.02377,0.50767,0.4925,0.5721,0.3000/ 

PFCN(X,n = (X«AMU-*V«E-*C*E<‘E)/(E + PHI) 

TARGET 


D0Q033 

000033 

000033 

000033 

000033 

000033 ' . 

D00033 

000033 ' ' 

000033 

000033 

000033 

U00033 

000033 
000033 
000033 
000033 
000033 
000033 
D00033 
000033 
000033 
000033 
000033 
000033 
0‘HIO 3 3 


R HQ s ROOT 



ALMS 


DATE 010978 


001311 

1 1* 


A 1 -A T 1 

000035 

00132 

12* 


A 2 -A T2 , 

000037 

00133 

13* 


8 Q-B 1 0 

000041 

00134 

14* 


B1=BT1 

000043 

0013S 

15* 


B2=BT2 

0Q0D45 

00136 

16* 


C0=CT0 

000047 

00137 

17* 


C1=CT1 

000051 

00HD 

18* 


PHI-PHI i 

000053 

00141 

19* 


DO 20 1=1, NP 

000063 

00144 

20* 


IF (I .GE. NN .AND. I .LE. NP J 1 

GO TO 20 000070 

00146 

21* 


ETA=VER(I,51/RH0 

000106 

00147 

22* 


AMU = ETA - 1.0 

000111 

00150 

23* 


SUHV = 0.0 

000113 

00 151 

24* 


00 8 J = 1 ,3 

000122 

001 54 

25* 

8 

SUMV = SUHV + VER 1 I , J ) *VER ( I,J » 

000122 

00156 

26* 


SUMV = 0.5*SUMV/VER (I.,5> 

000126 

0015 7 

27* 


E = ( VE R < 1 , 4 ) - SUMV1/ETA 

000131 

00160 

28* . 


A = Al + A 2 * A MU 

000134 

00161 

29* 


B = BO ♦ AMU* ( B 1 ♦ B 2 * A M U ) 

000140 

00162 

3n* 


C = CO ♦ C 1 * AMU 

000146 

00163 

31* 


IF (ETA .LT. 1 . 0 > GO TO 10 

000152 

0016 3 

32* 

C • • f » 

.COMPRESSION . . . . 

000152 

0016b 

33* 


P(I) =PFCN ( A ,B I 

U00156 

00166 

34* 


GO TO 20 

000170 

0 016 6 

35* 

C t « » • 

.EXPANSION 

000170 

00167 

36* 

10 

B01 =tsO + B 1 *AMU 

000172 

00170 

37* 


P ( I ) = PFCN ( A 1 , BO 1 ) 

000175 

00171 

38* 

20 

CONTINUE 

000216 

0017 3 

39* 


RHO = RHOP 

000216 

001/4 

40* 


A 1 = AP 1 

000220 

00175 

4 1* 


A 2 = A P2 

000222 

00176 

42* 


BO=BPO 

000224 

0017 7 

4 3* 


6 1 =B P l 

000226 

00200 

44* 


B2=BP? 

000230 

00201 

45* 


CO=CPO 

000232 

0 0 2 C 2 

46* 


C1=CP1 

000234 

00203 

47* 


PHI =PHIP 

000236 

U02U6 

H P * 


IF (NFRAC . CQ , 0) 00 TO 35 

000240 

00206 

4 9* 


00 30 1 I = 1 , I N T 

000245 

00211 

5 0* 


I=INTF(II) 

000245 

00212 

5 1 * 


ETA=VER(I,5)/RH0 

000246 

0021 3 

52* 


AMU = ETA - 1.0 

000254 

00214 

53* 


SUMV = 0.0 

000256 

00215 

5 4 * 


DO 28 J= 1,3 

000275 

00220 

55* 

28 

SUMV = SUMV + VER ( I , J1*VER 1 1, jl 

000275 

00222 

56* 


SUMV = 0.5*SUMV/VER(I,5) 

000301 

0022 3 

57* 


E = t VE R ( 1 , 4 1 - SUMV1/ETA 

000304 

00224 

58* 


A = Al + A 2 * A MU , 

' 000307 

00225 

59* 


B = BO ♦ A M U* ( 3 1 + B2*AHU 1 

. . 000313 

00226 

60* 


C = CO + C 1 * A M U 

000321 

00227 

61* 


IF (ETA .LT . 1.01 GO TO 29 

000325 

002? 7 

62* 

C » • • a 

. C OMPfvf SS10N. . . . 

0110 325 

0 0 2 3 1 

6 3* 


P ( I ) .'PFCNI A ,6 ) 

OOU 331 

00232 

64 * 


60 TO 30 

CUIO £4 3 

0 02 3 2 

65* 

C t • * i 

.L XPAN! 1 ON 

, 000343 

002 3 3 

06 4 


!• f ’ 1 -'ISO >i< 1 A A M 0 

OOU 345 



ALMS 



DATE" 010978 
00 0352 

_ __ 000371 

000371 

1 000371 

000371 

000371 

‘000371 

000417 

. 000421 

__ _ _ 000423 

” ' " * 000426 

I . 000426 

“0004 32 

0004 35 

000440 

_ _ 000444 

000452 

000456 

" "" 000456 

— __ _ ODD 4 62 

000474 

_ 000474 

0004 76 

000501 

000524 

_ _ 00 0 S 2 4 

000603 



BNDE “DATE' 010978 

?FOR Vs BNDeVbNDE ' “ 

HSA . E 3 - 01 / Q9/.7 8 -J 3 :4 3:Q5_JQ, ) •_ 


SUBROUTINE BNDEQ ENTRY POINT 000470 


STORAGE USED:. CODE(l) GUOS 1 6 ; , 0 A T A ( 0 }. .000 1 l,7j, ,BL A NK J30MM0N (.2 1 000000 


external references (block, name* 

0003 ' NPRTS 

0004 NI 02$ 

0005 NIOlS 

0006 NSTOPi 

0007 NERR3S 


S TORAGE 

ASSIGNMENT 

(BLOCK, TYPE 

, RELATIVE LOCATION, 

NAME ) 

. — - 

- _ 

- 

. 




0001 


00031 1 

ioool 

0D01 


000051 

1 1 1 G 

0001 


000314 

1200L 

o no i 

000114 

1 30 G 

0001 

000146 

137G 

0001 


000376 

1500L 

0001 


000206 

1 5 4 G 

0001 


000405 

1600L 

0000 

000026 

160 1 F 

0000 

000047 

1603F 

0001 


000265 

162G 

0001 


000303 

172G 

0001 


000335 

2 04 G 

0 001 

000344 

207G 

0001 

000427 

224 G 

0001 


000433 

2 3QG 

0001 


000057 

4 1QL 

0000 


000013 

4 2 OF 

0 001 

000071 

4 30 L 

0001 

000154 

500L 

0001 


000306 

900L 

0000 

R 

000010 

B 

0000 

R 

000000 

CERO 

0 000 

I 000004 

I 

0000 

000053 

INJPS 

0000 

I 

000007 

J 

0000 

I 

000012 

JFIRST 

0000 

I 

000005 

JLAST 

onoo 

I 000011 

K 

00 00 

I 000006 

L 

0000 

I 

OOOUO 3 

NPM 

0000 

I 

000002 

NBNO 

0000 

R 

000001 

PARE 









• 

* 

- . 

_ 

, - 

. . ...... 






. 








00101 
00101 
00101 
(10103 
00104 
OU 1 04 
00106 
00107 
00107 
00110 
00113 
001 lb 
00116 
00120 
00124 
003 26 
00126 
00127 

00132 

00133 
001 3b 
00136 
00 14 1 
(101 4 3 


1* 

2 * 

3* 

4* 

5* 

6 * 

7# 

e* 

9* 

10 * 

11 * 

12 * 

13* 

14* 

15* 

16* 

17* 

IB* 

19* 

20 * 

21 * 

2i>* 

23* 

24* 


SUBROUTINE BNOEO (A ,N«MAX,NCMAX ,N, ITERM) ' *' 000023 

C EQUATION SOLVER FOR 0ANDEO NON -S Y MME TRI C SYSTEM OF EQUATIONS 000,023 

C SOLUTION STORFD IN THE COLUMN A(N»2*ITERM) ‘ .... 000023 

DIMENSION A (NRMAX»NCMAX) ___ 000(123 

CL RO = 1.0-6 ’ ' ' "• ' 000023 

PARE - CERO**? 000025 

N8ND =2* ITERM ‘ " 000027 

NBM - NBND - 1 000034 

C BEGINS ELIMINATION OF THE LOWER LEFT ' ~ " ' 000034 

po 1000 1 = 1 , N _ __ __ __ 000041 

IF ( A B S ( A ( I , I T ER M ) ) ^"LT.’ CERO 1 ~GO~Vb 410 ""OOOD51 

GO TO 430 „ _ __ 000055 

410 IF < ABSIAtl, ITERM)) .LT. PARE) GO TO 1600 - 000057 

PRINT 420, Ad, ITERM), I ■ 000062 

420 FORMAT (* WARNING. ILL-CONDITIONED A-M ATR IX A ='• , E 1 6 .6,“ I = ’ , 12 ) ‘ ” 000071 

430 JLAST = MINOd + ITERM-1, N ) *' 000071 

L = ITERM ♦ 1 ‘ . 7' ~ — • - - oooioo 

DO 500 J = I , JLAST 0001 14 

L = L - 1 ' 0001 14 

IF ( ABS(A(J,LI) .LT. PARE) GO TO 500 000117 

b = A ( J , L 1 DTIU 1 1? 7 

00 450 K=L, NPND . _ b!) 0 1 46 

450 A(J,K> = A(J,K) / b ’ " ’ (1)0 146 

If <1 .LC. NI GO TO 1200 CdOlM 



BNOE 


DATE 010978 


00145 

25* 

SOO 

CONTINUE 

000155 

00147 

26* 


L=0 

000155 

00150 

27* 


JFIRST =1+1 

000156 

00151 

.28* 


IF ( JL AST .LE. 11 GO TO 1000 

000161 

00153 

29* 


DO 900 J = JFIRST, JLAST 

000177 

0015b 

30* 


L = L*1 

000216 

00157 

31* 


IF ( ABStA ( J,ITERH-L) ) .LT. PARE) GO TO 900 

000221 

0 0 1 6 1 

32* 


DO 600 K=ITERM, N8H 

□00265 

00164 

33* 

600 

A 1 J» K-L > = A < J-L »K 1 - A(J»K-L> 

D00265 

00166 

34# 


A ( J « NBND ) = A ( J-L ,NBND 1 - AtJ.NBND) 

000270 

00 167 

35* 


IF (I .GE. N-ITERM+1) GO TO 90D 

000273 

00171 

36* 


00 800 K=l, L 

00 D 303 

00174 

37* 

800 

A ( J, NBND-K 1 r -A ( J,NBND-K ) 

000303 

00 176 

38* 

900 

CONTINUE 

000314 

00200 

39* 

1000 

continue 

000314 

00202 

40* 

1200 

L = ITERM - 1 

000314 

00203 

4 1 * 


DO 1500 1=2, N 

DO 0 3 1 6 

00206 

42* 


DO 1500 J=l, L 

000344 

002X1 

4 3* 


IF 1N+1-I+J .GT. N) GO TO 1500 

000344 

0021 3 

44* 


A ( N* 1-1 , NBND 1 = A(N + l-I,NBNn» 7 A ( N ♦ 1 -I ♦ J,NB ND 1 *A C N+_l -I , I J E R M + J 1 _ 

000351 

00214 

45* 

1500 

CONTINUE 

000401 

00217 

46* 


RETURN 

000401 

00220 

47* 

1600 

PRINT 1601 

000405 

00222 

4 8* 

1601 

FORMAT (’ COMPUTATION STOPPED IN BNOEQ BECAUSE ZERO APPEARED ON 

000410 

00222 

49* 

1HAIN DIAGONAL. THE MATRIX FOLLOWS. *1 

000410 

00223 

50* 


DO 1602 1=1 , N 

000410 

00226 

51# , 

1602 

PRINT 1603, ( A { I , J ) , J=l, NBND) 

000427 

00235 

52* 

1603 

FORMAT 1 10E 12-4 1 

000442 

00236 

53* 


STOP 

000442 

00237 

54# 


END 

000515 


ENO OF COMPILATION: 'no' DIAGNOSTICS.' 


SHOG.P CELA 



CELA 


DATE 010978 


SFOR,S CELA, CELA 

HSA .. E3 -01/09/78-23:43:07 , ( l.,i 


SUBROUTINE CELANI ENTRY PO INT'od 1 1 60~ 


STORAGE USED: CODE U > 001236; DATA ( 0 ) OQOU.li BL A NK .COMMON. ( 2 > _OgOpOQ, .. 


> 

I 

O' 


COMMON 

BLOCKS: 


0003 

SYSMTX 

007641 

0004 

CELZ1 

000015 

0005 

CELZ3 

001140 

0006 

ORTHPC 

000060 

00D7 

MATRL 

000005 

0010 

NCASE 

000003 

0011 

GE0M1 

000524 

0012 

IMPCT 1 

006650 

0013 

IMPCT3 

000500 

0014 

ELMLAG 

0004 10 

0015 

PAROOF 

000002 

0016 

STRESS 

002530 

(tO 17 

STSELM 

0001 10 

0020 

IMPCT2 

000230 

002 1 

SOL STR 

001254 

0022 

BDSTR 

002541 



a 2 

■1 Z3 

“0 2 

Q S 

Q 

a 5 r* 

. O *T5 
£ 

r“ m 


4 


to 


EXTERNAL REFERENCES (BLOCK t .._NAHJL 


002 3 

0024 

0025 

0026 
0027 

EL CEL A 
ELMATS 
8N0EQ 
NERR2S 
NERR 34 




- - 







— 


- 




. 

... 



TORAGE 

ASSIGNMENT 

(BLOCK, TYPE 

, RELATIVE LOCATION, 

NAME 1 


- 








0001 

000352 

1 05 L 

0001 


000434 

1 15L 

0001 


000443 

1 1HL 

ODD 1 


000023 

1 4 1 G 

0001 


000024 

1 4 4 G 

0001 

000621 

1 SOL 

0001 


000625 

1 52 L 

0001 


000041 

153G 

0 001 


000646 

1 55L 

0001 


000077 

1 57G 

0001 

000110 

164G 

0001 


000125 

1 76G 

ODOl 


000714 

200L 

0 001 


000731 

201 L 

0001 


001015 

203L 

0001 

000151 

204G 

0001 


001022 

204L 

0001 


000152 

207G 

0 001 


D00175 

217G 

0001 


001075 

220L 

0001 

000176 

222G 

0001 


000211 

230G 

0001 


000245 

240G 

0 001 


000273 

245G 

0001 


000312 

252G 

0001 

000333 

260G 

0001 


000357 

270G 

0001 


000366 

2 7 4 G 

0 00 1 


000367 

2776 

0001 


000413 

3D6G 

0001 

000430 

3 1 SG 

0001 


000441 

323G 

0001 


000512 

333G 

0 001 


000547 

344G 

00 0 1 


000551 

347G 

0001 

000573 

3 6 1 G 

0001 


0006 1 3 

367G 

0001 


OD0661 

4 0 4 G ■ 

0 00 1 


000671 

4 1 1G 

0001 


000767 

4 3 0 G 

0001 

001002 

4 3 5 G 

0001 


001054 

4 54 G 

0001 


000032 

4 6 L 

0 001 


001066 

4 60 G 

0001 


001124 

4 7 1 G 

0001 

000051 

48L 

0001 


oor 1 6 4 

6GL 

0001 


000167 

68L 

0 001 


000232 

SSL 

0004 


,000001 

A 

0004 R 

D00002 

ALPHA 

00 1 2 

R 

001370 

C 

0014 

R 

000000 

CO 

0 01 3 

R 

00004 0 

CFRC 

UU06 


000055 

CK 

0014 R 

000200 

CL 

0014 

R 

oooi no 

CS 

0004 

R 

000013 

DELT 

0014 

9 

000250 

DF 

0006 


000033 

E 

0014 R 

000310 

ELXYZ 

00 1 3 

R 

(1000*1) 

F JCB 

00 12 

R 

001140 

FJN 

0012 

R 

001264 

FJPRV 

00 00 

I 

000000 

I 

002? , I 

noooi i 

ions 

on?'’ 

I 

ri'inono 

1 POST 

0000 

T 

0001) 1? 

IE 

o oo n 

1 

onooi i 

1 I 

onf.n 

I 

000004 

IN 

00 10 

0000(10 

1 MJE X 

oo on 


0 i 1 ( ' (' 4 1 

1 N JP4 

00 04 

I 

nnoui i 

INNER 

u no >i 

I 

OUlJilOU 

I Ok DC 

UOli 1 


000004 

J SOP 

0007 

001)003 

ISO T 

CIO'14 

I 

) 2 

MLR 

coon 

T 

oum,n i 

J 

o ( on 

I 

fiuoriUi 

K 

00 1 1 

I 

01;, '1000 

KODE 



'"'CELA " ’DATE Q1Q978 


0006 

I 

000022 LI 

0015 

OOOOQO 

MAXDOF 

0000 

I 

000002 N 

0 010 

I 000001 NASTRN 

0004 

I 

000006 

NBU ’ 

0000 

I 

000010 NC 

0004 I 

000010 

NEPJ 

□ 004 

J 

000003 NET 

0 007 

OODODO NFR AC 

0004 


000014 

NFST 

0015 


000001 NGD 

0004 I 

000005 

NHBW 

DOOO 

I 

000003 N I 

0 000 

I 000005 N J 

0011 

i 

000114 

NOD 

0004 


000007 NPP J 

. . 0004 . X 

.000004.. 

N PS 

DOOO 

T. 

000007 NR 

_ 0 010. 

.000002. NSLIQE 

0003 

i 

007640 

NSTAB 

0013 

R 

cooooa om 

0014 R 

000300 

PM 

0007 


000002 PMIU 

0 00 6 

CQ0044 PNIU 

0020 

R 

0 00000 

PRSN 

0020 

R. 

000114 PRSPRV 

0003 R 

000000 

S 

0022 

R 

001265 SBD 

0014 

R 000210 SF 

0006 


000011 

SLC 

0006 

000000 SL T 

0017 R 

000000 

STL 

0021 

R 

000000 STS 

0 016 

R 000000 STSN 

0016 

R 

001254 

STSPRV 

0D07 


000001 TM1U 

0012 R 

000344 

VERN . 

0005 

R 

000344 VERPRV 

0014 

R 000340 VL 

0014 

R 

000220 

U 

00 12 

R 

oaoooo xn 

0005 R 

booooo 

XPR V 



— 


- 






> 

-J 


a o i o l 

1* 

00101 

2* 

00101 

3* 

00101 

4* 

ooiqi 

5* 

00101 

6 * 

00101 

7 0 

ooiai 

8* 

£101 03 

9* 

00103 

9* 

00103 

9 A 

00104 

9 * 

0 010 5 

9 + 

00106 

9# 

00106 

9# 

UD107 

9* 

00110 

9* 

□ 0111 

” "" 9* 

00112 

9* 

UU11 3 

9* 

00113 

9* 

□ 0114 

10* 

00114 

10* 

00115 

io* 

UUli 6 

10* 

00116 

10* 

00117 

10* 

00120 

in* 

00121 

10* 

00122' 

10* 

00123 

10* 

00124 

1 o * 

00124 

in* 

00125 

in* 

00126 

10* 

00126 

10* 

00126 

10* 

0012 7 

10* 

001 30 

10* 

00131 

1 0* 

00132 

m* 

00133 

10* 

00134 

10* 


SUBROUTINE CELANI I INTF,,INTFT ,CINJ ,L1 , L2 > .. . 

C 

C **** * "S'*# ***** * * * * * **** ** * _ 

C ■ " " ' ” 

C ASSEMBLE __SY S_ T E M_M A_TRICES__ FOR CO NSTI TUTIUE EQUATI ONS 

c ' 

C************************* _ . 

C ' ' ' 

INCLUDE PARAH1,LIST _ 

PARAMl PROC 

C _ _ 

PARAMETER ' NPMT= "76 , NEM T=” 3 3 ,NPM= Tfe',NEH= 33 
PARAMETER NPELG= 8,NPE= 6 
PARAMETER NDFRSr53,NOINT=10 

C _ 

PARAMETER NRHAX = 2000 ,NCMAX=2' 

P ARA ME TER NGP LG = 2 , NGP = 2 

PARAMETER NCNT=6, NFR C =NP M 

PARAMETER IU=5»NDPJT= 10 , NTSTEP=200 _ _ 

PARAMETER NBV =NPM , N B S=NPM , N3 D=NPH ' 

END 

INCLUDE CON STV, LIST 

CON STV PROC • 

■'COMMON /sysmtx/ ' s <nrmax ,ncmax ) f nstab 
COMMON / CE L Z 1 / IORDC, A , ALPHA, NE T , NPS , NHB U , NBU , NPP J, NE PJ , INNER, 

] ITER,OELT,NFST 

COMMON /CEL23/ XPR V < NPMT , 3 I , V E RPR V ( NPMT , IU > 

COMMON /ORTHPC/ SL T ( 3 , 3 » , SLC { 3 , 3 1 ,LI < 3 , 3 > , E < 3 , 3 1 , PN iu (3i 3 CK ( 3 ) 

COMMON • / M A TRL / N F R AC , TM I U , P M1U , I S 0 T , I SOP 

“'COMMON '/NCASE/' iNDEX.NASTRNtNSLIDE 

COMMON /GEOM 1 / K ODE ( NPM T ) , NOD < NEMT , NPELG » 

COMMON /IMPCT 1/ XNtNPMT ,3 1,VERN(NPMT » IU ) , FJN ( NPmTVFJP RV'< NPM) , " 

1C ( NPMT, NCNT ,NCNT ) 

COMMON / I MPC T 3/ OM ( NPE , 3 ) ,FJCB (NPE) » CFRC ( NPELG J NCNT , N CN T 1 " 

COMMON /ELMLAG/ CD { NPE LG , NP ELG ) , C S ( NPE LG , NPELG ) ; CL ( NP ELG ) , 

1SF< NPELG ) ,W(3, NPELG V, DF ( 3, NPELG I , PH ( NPELG )’ , ELX Y Z 6NPEL G, 3 ) , ‘ 

2VL(NPELG,IU) _ 

COMMON /PARDOF/ MAXDOF , NGO 

COMMON /STRESS/ S T S N ( N PM , 3 , 3 ) , S T S PR V t NPM , 3 , 3 ) 

COMMON /STSEIM/ STL (NPE ,3,3) 

COMMON / 1 MP C f ? / PRSN(MPH) ,PRSPRV (NPM I 
COMMON /SOLSfl?/ STS(NPM,2,i) 

COMMON /MJSTR/ f BDS1 l 3 , 3) , IfUjS ( NBS , 3 , 3 ) ,SPD (NP.S , 3 ,3 ) 


000016 
000016 
000016 
000016 
00 U 0 1 6 
0000 16 
000016 
000016 
000016 
000016 
000016 
00Q01 6 
000016 
000016 
000016 
000016 
000016 
□00016 
000016 
□□□□16 
000016 
000016 
000016 
000016 " 
000016 
000016 
000016 
000016, 
0000 16_ 
000016” 
000016 
000016 
000016 
000016 
000016 
000016' 
000016 
000016 
000016 
000016 
000016 
0000 J 6 
0 000 I 6 





CELA 


DATE 01097$ 


0013$ 

0 0135 

001 35 
001 35 
0013b 
00190 

10* 

.11* 

12* 

13* 

19* 

16* 

’ c 
c 

END 

DIMENSION CINTIINTFT.NCNT.NCNT1.INTFI1) 

IF (NASTRN .NeToVgO TO 96 _ " " ” 

DO 95 I=1,NRMAX 

000016 

000016. 

000016 

000016 

000016 

000029 

00193 

16* 


DO 95 J = 1 , NCH AX 

000029 

00196 

17* 


95 S( I, J)=0.0 

000029 

0015 J 

18* 


96 CONTINUE 

000032 

00152 

19* 


DO 200 N=1,NET 

000032 

00155 

20* 


GO TO ( 98 ,85 » .INNER 

000091 

00 ] 5 6 

2 1* 


98 DO 80 1=1, NPE 

000051 

GO 1 6 1 

22* 


NI = NQD (N , I ) 

000077 

00162 

23* 


F JOB < I 1 =FJPRV (NI ) 

000100 

00163 

29* 


DO 50 J = l,3 

000 1 10 

0016b 

25* 


ELXYZ ( I , J ) -XPRV (NI , J> 

0001 10 

00167 

26* 


50 VL II ,J) =VERPRV(NI,J l/VERPRV (NI ,51 

0001 11 

00171 

27* 


IFIITER .GT. 1 .OR. N .GE. NEPJl GO TO 68 

000 1 15 

00173 

28* 


VLII, 31=0.0 

0001 17 

00179 

29* 


VL <1,9 1=0.0 

000 1 20 

00175 

30* 


DO 60 IN-1 ,INTFT 

000125 

00700 

31* 


NJ=I NTF (IN ) 

000133 

0 0 2 01 

32* 


IF <NJ .NE. NI 1 GO TO 60 

000 1 35 

0070 5 

33* 


DO 5b J = 1 , NCNT 

000137 

0 0 ? 0 b 

39* 


DO 55 K = 1 ,NCNT 

000152 

00711 

35* 


55 C(NI,J,K»=CINT{IN t J,K) 

000152 

00219 

36* 


60 CONTINUE 

000167 

00216 

37* 


68 00 75 J=I ,3 

000167 

00221 

38* 


DO 75 K=l,3 

000176 ' 

0 0 2 7 9 

39* 


75 STL( I , J,K IrSTSPRV (NI , J,K ) 

000176 

0 0 2 2 7 

90* 


DO 78 J=l,3 

00021 1 

00232 

91* 


78 STL ( I , J , J 1 =STL < I , J, J 1 +PRSPRV<NI> i 

000211 

00239 

9 2* 


80 CONTINUE 

000230 

00236 

9 3* 


GO TO IDS 

000230 

0G237 

99 * 


85 DO 100 1=1, NPE 

000232 

00292 

9 5* 


NI=NOD (N, I * 

000295 

0029 3 

96* 


F JCB <11 =AL a HA*FJPRV <NI 1 ♦ l 1 . 0 -AL PH A 1 *F JN ( N T ) 

U 0 0 ? 11 6 

U ti S 9 9 

97* 


00 90 0=1,3 

000273 

0 (j2 9 1 

98 * 


tLXV2lI,Jl=ALPHA*XPRV(NI,J)*(l. O-ALP HA)*XN(NI,J) 

000273 

G02SU 

99 * 


VL (I ,J 1 =ALPHA*VERPRV(NI ,J l/VERPRV ( NI , 5 ) + ( 1 . 0" AL 3 H A J * 

000300 

00250 

50* 


I VERN (NI , J 1/ VERN1NI ,5 1 

000300 

00251 

51* 


DO 90 K = 1 , 3 

000312 

00259 

52* 


9 0 STL(I,J,K)=ALPHA*STSPRV(NI,J,K 1 ♦( 1 . O-ALPHA ) *S TSN ( NI , J ,K J. 

000312 . 

00257 

53* 


DO 95 J = 1 , 3 

000333 

00262 

59* 


95 STL( I,J,J1=STL( I , J , J ) + ALPH A*PR SPR V ( NI )♦< 1 . O-ALPHA > *PR SN < NI ) 

000333 

00269 

55* 


100 CONTINUE 

000352 

00266 

56* 


105 CONTINUE 

000352 

00267 

57* 


UO 1 10 1 = 1 , NPE 

000352 

00272 

58* 


N I =NOD < N , r ) « 

000357 

00273 

59* 


DO 11D J= 1 , NCNT 

000361 

00276 

60* 


00 110 K = 1 , NCNT 

000367 

U0301 

61* 


I 10 C F i(C ( 1 , J , K >=C(NI,J,K) 

000367 

00305 

62* 


00 lie 1=1, NPE 

0009 1 3 

00310 

b 


Nl’-NuOtN, I ) 

OilU 9 16 

00 31 1 

69* 


IF (KCDf. (Nil ) 112,112,115 

000920 

00 31 9 

66* 


1 12 0 0 1 1 3 .1-1,3 

0 109 50 
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t> 

l 

■*£> 


00317 

00321 

00322 
00325 
00327 
00331 

00331 

00332 
■00 335 
00 334. 
00337 

0034 1 
0(154 3 
00 3 'I 6 

0035 1 
00354 
0035b 
00360 
0 G 3 6 3 
00 364 
00366 
00371 
0 0 5 7 3 

003 74 
00375 
00377 
00400 

00400 

00401 
0040? 
00403 

004 06 
Q04D7 
004 10 
0041 3 
004 14 
004 1 7 
0(14^1 

00423 

00424 
004 2 5 
004? 7 
0043.2 
004 34 
004 2 7 
0 0 4 4 J 

00442 

00443 
004 4 5 
0 0 4 4 7 
00450 
00452 
0 04 6 3 
GO 4 5 0 
ii:-4 i 
,) 4* .■ 


66* 113 OM(I ,J)=VL (I,J) 

6 7* GO TO 118 _ _ 

68* 115 DO 116' 0=1,3 

69* 116 0M(I,J)=0.0 ... 

'70* 118 CONTINUE 

71* _ CALL ELCELA ( NGP , NPE .ELX YZ ,SF ,D F ,W , VL ,0H ,F JCB , STL . CO , C S, C L, LI , CFRC, 

7 2* 1NCNT * OE LTt L 1 * L2 iToRDc") 

73* DO 120 1=1, NPE 

74* ’ NI=NOO(N,I) 

75* PMtl 1 rSTSPRV t NI ,L1 ,L2) 

76* IF (LI .EO. L2) PH ( I 1 =PM ( I 1+PR SPR V (N 1 1 

77* 120 CONTINUE __ _ .. 

78* ~ ' 

79* 

80* 

81 * 

8?* 

83* 

64* 

85* 

86* 

87* 

88*‘ 

09* 

90* 

9 1 * 

92* 

9 3* 

94 * 

95* 

96* 

97* 

98* 

99 * 

100* 

101* 


10?* 

200 

CONTI NUE 


10 3 + 
104* 


JF (NA'jtbN ,iu, Ql 00 fo 201 
RETURN 


105* 
106* 
10 7* 
108 + 

201 

CONTINUE 

IF ( NS TAB .NE. 01 GO TO 204 
DO 203 1 = 1 , NPS 



IF (KOnEIIl . L T . 2 1 GO' TO 203 


1 0°* 


00 20? J=1 , NBW 


110* 

202 

su,J>=n.o 


111* 

112* 

113* 


S ( I , NHOW 1=1.0 
S(1,NBW)=STSPRV(I,L1,L2I 

IF (LI .EO. L 2 1 S ( I ,NBU >=S t T ,NBW 1 +PRSPRV ( 1 1 ’ 

* ' — - 

114* 

203 

CONTINUE '* •' 


115* 
116* 
117* 
114* 
119* 
1 ?••;>- 

204 

CONTINUE 

IF ( 1BI15HL1 »L2 1 .tO. 0) GO TO 220 
1 1 ; i i.n :> i a l , l? i 
uo ? in t - i , i r 

ll=lll>5li,l t > L ? 1 .... 

1)0 ?C‘- J ! ,Nf.U 


1 ‘ 1 <■ 

Oil 5 

‘.(It , 1) .0.1! 



DO 140 1=1, NPF 
DO 140 J=1 , NPE 

140 CL ( I )=CL ( I) +CDC I , J) *PM ( J> 

IF (NASTRN .EO. 0) GO TO 155 

IF t NSTA13 .NE. 01 GO TO 152 

. DO 150 1 = 1 , NPE 

N I =NOD ( N , I ) 

IF ( K 00 E ( N I 1 .LT. 2) GO TO 150 
DO 148 J = 1 ,N PE 
148 CS ( I ,J1=0.0 
C S ( I ,11=1.0 

CL( I 1=5TSPRV (NI ,L1 ,L21 . 

150 CONTINUE 
152 CONTINUE 

CALL ELMATS (CS, CL”,NPS,NEHT f NPELG, NOD, NicD,iBDSf , IBOS, SB.D,NBS, 

1 L 1 , L 2 1 . 

GO TO 200 

155 CONTINUE _ 

DO 160 1=1 , NPE" 

NR =N 00 ( N, I 1 

S(NR,NBW)=S(NR»N 8 W 1 * C L ( I 1 

00 160 J=l, NPE , _ 

NC=NOD(N, Jl-NR+NHBW 
160 S ( NR ,NC I =S ( NR ,NC 1 +CS ( I ,J > 


000430 
000432 
00D4 34 
000441 
000445 
000445 
000445 
000473 
000512 

000514 
000520 
000.5 35 
000535 
000551 
000551 
000562 
000564 
000573 
000576 
000600 
000613 
000613 
000614 
000616 
000625 
000625 
000625 
000625 
000644 
000646 
000646 
000661 
000664 
00 0 6 7 1 
0006 7 1 
000676 
000 72 J 
00072 3 
000725 
000731 
000731 
000767 
U0077? 
00 1(102 
00 1002 
001003 
DO 1005 
001007 
00102 ? 
001022 
001022 
IJO 10 26 

Oil 04 4 
t 0 l 4 4 
S ! •" 6 
, 11066 



ot- 
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004 64 122* S(IE,NHBU>=1.0 

. 00465 123* 21D S ( IE f NB W ) =SBD ( I ,L l , L 2 ) 

00467 124 * 220 CALL 8NDEQ I S , NRM AX , NCH AX , NPS ,NHB W 

00470 126* 00 240 in, NPS 

00473 126* 240 S T S ( I , L 1 , L 2 1 = S < 1 , N8U I 

. 00476 12 7* __ RETURN 

00476 124* * " ENO 


END OF COMPILATION: NO DIAGNOSTICS, 
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CEL23 

001140 
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ORTHPC 

000060 

0007 

MATRL 

000005 

00 10 

NCASE 
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HO 1 1 
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000524 

0012 
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006650 

0013 
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000500 

0014 
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0015 
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0016 
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0020 
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*3 
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0023 ELCFLD 
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1 15L 

0001 

000265 

118L 

0 001 

000006 

1426 

0001 

000411 

142L 

0001 

000415 

1 44 L " 

~'oooi~ 

■""00 0 00 7' 

"14 5G" 

0001 

000457 

1501” 

d oo i 

'000022' 

" 15 5 G 

0 001 

"0 00'4 6 7 

1 5 8 L~ 
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0001 

000046 

1756 

0001 
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0001 
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' 00 01 
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193L 

0001 
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195L 

0001 
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001221 

2 00 L 

0001 
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OPQl 

000067 

20 3 G 

0001 
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220L 
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000263 
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00031 6 

2 76G 
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000403 
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UOOl 

000502 
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000016 

40L 
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000547 
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4 12G 
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000614 

4 2 1 G 

0001 
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0 CO 1 
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4 4 1 G 

0001 

000671 

4 4 6 G 

0001 

000031 

4 5L 
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000037 

4 6 L 

oo ui 

000722 

4 60 G 

0 001 

000730 

4 6 4 G 

oooi 

non/3i 

4676 

0001 

00 lull! 

4 7 7G 

0001 

0CJQ1 Go 

4 BL 

0001 

001013 

5 06 G 

UOOl 

001015 

51 1G 

CD01 

001046 

5266 

0001 

001066 

5 54 6 

0001 

DU 11 5 2 

5516 

UOOl 

001166 

5 65 6 

o noi 

001176 

57 20 

on ni 

001256 

61 3 G 

0001 

0012/1 

6 TOC 

UOOl 

001 531 

6356 

OUUl 

flU 1 34 3 

6 4 1 G 

0 00 1 
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6 5 3G 
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Out) 1 5? 

8 JL 
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non h>i 
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GOO 4 
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A 
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R 01)0502 
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R 
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XN 
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R 
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oaioo 

3* 
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5* 
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6* 
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0010 r 

BY 
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9# 

0 010 3 

9 Y 

00] 0 3 

9 Y 

f)U 104 

9 Y 

00105 

9Y 

00 1 06 

9Y 

00106 

9* 

00107 

9* 

00110 

9Y 

01)1 1 1 

9* 

00112 
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CO 1 1 i 

9 Y 

00113 

9* 

00114 

10Y 

00114 

11* 

001 14 

1 1 Y 

00115 

11 * 

00116 

1 1* 

00116 

11* 

00117 

11* 

00120 

11* 

u n 1 2 1 

11* 

00122 
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11* 
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c ‘ OOOOOO 

C ASSEMBLE SYSTEM MATRJCE_S FOR pi SPL ACEMENTS IN CELFE ZONE , OOOOOO 

' c '■ " "" ' 000000 

C ***** * **** ********** ** *** , OOOOOO 

c . ' ' OOOOOO 

SUbROUTINF. CELDIStL) . .. ...... 000000 

INCLUDE PARAM 1 ,L I ST " OOOOOO 

P AR AMI PROC _ _ _ . OOOOOO 

' c " ’ OOOOOO 

PARAMETER NPMT: ?6,NEMT= 33,NPM= 76 r NEM=._33 .... . OOOOOO 

PARAMETER NPELG= B,NPE= 8 OOOOOO 

PARAMETER N0FRS-53.NDINT = 10 , . 0000,00 

c uoonoo 

PARAMETER NR M A X = 20 00 , NCM A X ~2 _ ... OOOOOO 

PARAMETER NGPLG=2 ,NGP:2 ~ -000000 

PARAME fr R NCN T - 6 , NFRCSNPH OOOOOO 

PARAMETER 1 U- 6 ,NuP J T ” 1 0 , N f S l E P i 2 00 OOOOOO 

PARAMETER N0V=NPM,NBS:NPM,N30=NPM . OOOOOO 

END ----- - - - OOOOOO 

INCLUDE DISPLV.LIST _ . OOOOOO. 

■■ c ■ ” ‘ ■ " ‘ 000090 

OISPLV PROC . ... . . OOOOOO 

COMMON /SYSMTX/ S < NR M A X , N C M A X ) , N S T A B DOOOOO 

COMMON / CE L Z 1 / rOROC ,A .ALPHA , NET »NPS ,NHBW .NBU ,NPPJ,NE PJ tINNER, ... . OOOOOO 

1 ITER.DELT »NF$T ... OOOOOO 

COMMON / CF L Z 3 / XPRV (NPMT , 3 1 , VERPR V ( NPMT , IU ) .. _. ^ _ _ OOOOOO 

” ' COMMON /OR TMPC/ SL T ( 3 , 3 1 1 SLC ( 3 , 3 1 » LI < 3 , 3 > , E ’< 3 ,"3 )" *PN III ( 3 , 3 1 , CK « 3 F OOOOOO 

COMMON / M A T R t. / NFR AC , TM I U , PM IU , I SOT , I SOP 000000 

COMMON / N C A S F / INDEX, NASTRN, NSLIOE OOiJOOO 

COMMON / C L 0 M 1 / KOPE (NPMT) ,NO[i(NFMT ,NPELG 1 000 JOO 

COMMON /iPIH.ri / XN (NPM T ,3 1 , VLRN (NPMI , IU 1 »FJNtNPM 1 ,F JP EV (NPM 1 , O’lOOOO 

1C ( NPMT , Nf N r , NON 1 I OilOOOO 

COMMON /1'iPCri/ m" IMRE , .* ) ,F JCB (NPT 1 ,CFRC IMPELG,NCNT ,NCNT ) 1 M) - U)0 

COMMON /Ft Ml A (• / CO U'Pfl h ,NP P L6 I ,C MNPf LG ,NPE LG 1 ,C1 I HP FL fi 1 , '• '0’’il,7 
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00126 

11* 

1 SF [ NPELG 1, U( 3, NPELG ),DF< 3, NPELG >,PM (NPELG »,ELXYZ( NPELG, 31, 

000000 

00126 

11* 

2 VL ( NPELG , III ) 

000000 . 

00127 

11* 


COMMON /PARDOE/ MAXDOF.NGD 

000000 

00130 

• 11* , 


COMMON /DISPLC/ DISNINPMT ,3) ,D I S PR V ( NPH T , 3 ) ,X (NPHT,3> ,BFS ( NPHT >3) 

000000 . 

00131 

1 1 * 


COMMON /DISELM/ OL ( NPELG , 3 ) ,BF( NP ELG , 3 1 

000000 

001 32 

1 1* 


COMMON /SOLDI S/ 0IS(NPMT,3) 

000000 

00133 

11* 


COMMON /BDDIS/ I BOX ST < 3 > , I BO IS < N80 , 3 1 , 0 ISBD ( N8D , 3 ) 

000000 

00133 

11* 

END 


000000 

00139 

12* 


COMMON /LAGRGN/ NP S T , NEL T , I ORDL , M BU , KHBW 

QOUOOO 

00134 

1 3* 

C 


000000 

00134 

14* 

C 


000000 

001 35 

15* 


IF (NASTRN) 45,20,40 

000000 

00140 

16* 

20 

CONTINUE 

000007 

0014 1 

17* 


DO 30 1=1 , NRM A X 

C00007 

0014 4 

18* 


DO 30 J=1,NCMAX 

000007 

00147 

3 9* 

30 

S(I,J)=0.0 

000007 

00 1 5 2 

20* 


GO TO 45 

000014 

00 153 

21* 

40 

CONTINUE 

DO 0 0 1 6 

00154 

22* 


DO 41 1=1 , NPST 

000016 

00157 

23* 


DO 41 J= 1 , 3 

000023 

00162 

24 * 

41 

UIS(1,J)=0.0 

000023 

CUD 6 5 

25* 

45 

CONTINUE 

0.00031 

00166 

26* 


IF (INOEX .EQ. 1) GO TO 46 

000031 

00 1 70 

27* 


LIN: 1 

000033 

0017 1 

28* 


GO TO 170 

000035 

001 72 

29* 

46 

CONTINUE 

000037 

00173 

30* 


L IN = NE T+ 1 

000037 

00174 

31* 


DO 165 N=1,NET 

000046 

00177 

32* 


LEE = 1 

00 0 05 1 

0 Cl 2 0 U 

33* 


IF (NASTRN .EQ. 11 LEE=3 

000053 

00202 

34* 


DO 150 LIE =1, LEE 

000060 

00205 

35* 


KKK=L 

000067 

00206 

36* 


IF (NASTRN iEQ. 1) KKK =LIE 

000071 

00210 

37* 


GO TO (48,85) , INNER 

000076 

00 2 1 1 

38* 

48 

DO 80 1=1, NPE 

OOG1U6 

002 14 

39# 


NI = NOD( N, T ) 

000130 

00216 

4 n* 


F JCB ( I ) =FJ?RV (Ni 1 

000131 

U(J? 1 6 

4 1 * 


DO 50 J = 1 ,3 

ODU 14 1 

00221 

42* 


t L X Y 2 ( 1 ,J) =XPRV (NI, J) 

000141 

00222 

4 3* 


VL ( I , J 1 :VERPRV 1 NI ,JI/VERPRV(NI,5> 

000142 

00223 

44* 

SO 

CONTINUE 

000146 

00 22 5 

45# 


IF( 1 TER .GT. 1 .OR. N . GE . NEPJ1 GO TO 80 

000146 

00227 

46* 


' VL(I ,31=0.0 

000150 

00230 

47* 

80 

CONTINUE 

000157 

002 32 

48* 


GO TO 110 

000157 

UU233 

4 9* 

85 

00 1U0 1=1, NPE 

000161 

002 36 

'50* 


NI = NQD(N, I ) 

000170 

00237 

51* 


FJCB(I)=AL :> HA#FJPRV(NTl + ll . 0 -A LPH A ) *F JN ( N I ) 

000173 

00240 ' 

'52* 


DO 100 J = 1 » 3 ' , 

000205 

00243 

53* 


ELXY2(I,J)=ALPHA*XPRV(NI,J)+(1.0-ALPHA>*XN(NI,J> 

000205 

0 0 2 4 4 

54 * 


V L ( I , J) =ALPHA*VERPRV (NI , J ) /VERPR V (NI , 5 ) ♦ l 1 . D-AL» HA 1 * 

000212 

00244 

55* 


1 VERNt NI , J 1/ VERN(NI ,5 > 

000212 

00245 

5 6 £ 

100 

CONT INUE 

000235 

00250 

57* 

1 10 

DO 118 1=1 , NPE 

000235 

00263 

58 * 


N I :NvUM N, T 1 

00 0240 

OH 7 S 4 

69* 


ii (HOOF (Nil) 112,1)2,115 

0 m '4 3 
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00257 

60# 

112 

00 113 J=l,3 


000252 

00262 

61* 

113 

OH<I,J)=VL<Itvl) 


000252 

00264 

62* 


GO TO 118 


000254 

00265 

63* 

115 

00 116 J=l,3 . . . . 


000256 

00270 

64 + 

116 

0M(I ,J)=0.a 


000263 

00272 

65* 

. H8 

CONTINUE 


000267 

00274 

66* 


CALL EL CELO ( NGP , NPE , ELX YZ ,SF ,DF ,W , VL , OH , F JCB , CO , C S , CL ,OELT,KKK, 


000267 

00274 

67* 


1 IORDC ) 


000267 

002 75 

ba* 


DO 120 1=1, NPE 


000310 

oo son 

6 9* 


N I =NOD ( N , I ) 


000316 

00301 

70* 

120 

P M ( I 1 =01 SPR V ( MI » KKK ) 


OGO 321 

0 0302 

7 1* 


00 140 1=1 , NP F 


000332 

00206 

72 + 


00 140 J = 1 , NPE 


000 532 

00 3 1 1 

73* 

140 

CL(I )=CLII)+C0(I,J1*PM(J1 


ODD 3 3 2 

00314 

74 + 


IF ( NASTRN .EO. 01 GO TO 150 


000343 

0U316 

75* 


IPARAP=2 


000345 

0031 7 

76* 


IF (NASTRN .EO. -11 IPARAM=1 


000347 

00 52 1 

77* 


IF (NSTAB .NE. 0) GO TO 144 


000354 

00 32 3 

78* 


DO 142 1=1, NPE 


000363 

00326 

74* 


NI=NOn(N,I) 


000366 

00 32 7 

80* 


IF { KOOE (Nil .LT. 2) GO TO 142 


000370 

OD331 

8 1* 


DO 141 J = 1 , NP E 


000403 

00 334 

82* 

141 

CSl I , J)=0.0 


000403 

0(1 3 36 

8 3 + 


C S ( I , I) = 1 . 0 


000404 

00337 

84 * 


CL ( 1 ) =UISPRV(NI,KKK1 


000406 

00 3 4 0 

85* 

142 

CONTINUE 


000415 

00 342 

86* 

144 

CONTINUE 


000 4 15 

00 3 4 3 

87* 


CALL CLMrRX(CS,CL t NPS,NEMT,NPELG,NOD,N,CD,IBDIST, TBDI 5, DISBD , NBD , 


0004 15 

0 0 14 3 

88* 


1 LIC.IPARAMl 


G00415 

00344 

87* 


IF (NASTRN .NE. 1) GO TO 150 


■0004 34 

•0(i 34 6 

9U* 


DO 145 1=1, NPE 


00D447 

0 0 36 1 

91* 


NR=NOO ( N , I 1 


000447 

IJ 0 3 4 2 

9?* 

145 

DI5(NR,KKK )=DIS(NR,KKK 1 ♦ C L (I 1 


000452 

0 0 .3 4 4 

93* 

150 

CONTINUE 


000463 

00356 

94* 


IF (NASTRN .EO. D) GO TO 158 


000463 

00360 

95* 


GO TO 165 


000465 

00 361 

96* 

158 

CONT INUE 


000467 

il n 1 1* o 

9 7* 


1(0 160 f:UN«f 


6 flu 4 6 7 

0 0 3 6 5 

98 * 


NR = NU() ( N , It 


000602 

00366 

99* 


S (NR ,MBW) =S(NR,MBW l+CLI I) 


000505 

00 36 7 

100* 


DO 160 J= 1 , NPE 


000512 

00 372 

101* 


NC=NOD(N,J)-NR*HHBW 


000512 

0037 3 

102* 

160 

S(NR,NC)=S(NR,NCI+CS(I,J> 


000517 

00376 

103* 

165 

CONT INUE 


000536 

0 0 4 0 U 

104* 


IF (LIN .GT. NELT) GO TO 201 


000536 

00402 

105* 

170 

CONTINUE 


000543 

00403 

106* 


00 200 N = L IN ,NELT 


000543 

0 G 4 0 6 

107* 


LEE = 1 


000552 

00407 

108* 


IF (NASTRN .EO. 1) L EE = 3 


000554 

004 1 1 

109* 


00 195 L1E=1,LEE 


000661 

0Q4 14 

110* 


KKK = L 


000571 

004 1 6 

111* 


IF (NASTRN .EO. 1) K K K =L I E 


1)006 7 J 

004 1 7 

112* 


GO 10 (171 , 1801 , INNER 


O'lJbOO 

00420 

1 ! 3* 

171 

00 176 I : 1 , NHLG 


P.liH 14 

0 0423 

11 4 * 


N 1 -NOD ( N, I ) 


(.MG', 1 4 

i. !l 4 2 4 

115* 


•VI ( I ,6 1 =VFR PfiViM ,51 


i Kj'i 1 / 



CELD 


DAT E 0 1 0 978 


00425 
004 30 
004 31 

00432 

00433 
004 35 

116* 

117* 


DO 172 J=l,3 
ELXYZ(I,J>=X(NI,J> 

0D0625 

000625 

118* 
119* 
120* 
121 * 

172 

175 

8 F < I ,JJ =BFS (NI , J ) 
DL(I ,J)=DISPRV(NI,J> 
VL ( I , J) =VERPRV INI , j) 
CONTINUE 

000626 

000630.. 

000632 "" 
000643 

004 37 

122* 


GO TO 185 

000643 

00440 

123* 

180 

DO .184 1 = 1 , NPELG 

000645 

00443 

124* 


N I -NOD ( N , I ) 

D00654 

0 U 4 4 4 

12.4* 


VL(I,5>=ALPHA*VERPRV(NI,5> + U.0-AIPHA>*VERN«NI,5I 

000657 

0 0 4 4 5 

126* 


DO 184 J = 1 , 3 

000671 

004 50 

127* 


ELXYZ (I , J >=X (NI , J) 

000671 

004 51 

128* 


DL (I , Jl =ALPHA*DISPRV < N I , J»* t 1.0- ALPHA 1*0 1 SN tN I, J) 

000672 

00452 

129* 


VL ( I , J) =ALPHA*VERPRV (NI , J) ♦ C 1 .O-ALPHA >*VERN (NI , J) 

000700 

00453 

130* 

184 

BF(I,J)=BFS(NI,J) 

0007D6 

004 56 

131 + 

185 

CONTINUE 

000722 

004 5 7 

132* 


00 187 1 = 1 , NPELG 

000722 

00462 

133* 


NI=NOD(N,I ) 

000722 

0 0463 

1 34 * 


DO 167 J = 1 , NC NT 

000723 

004 66 

136* 


DO 187 K-l t NCNT 

000731 

UU471 

1 36* 

187 

CFRC 1 I , J ,K ) =C (NI ,J ,K > 

000 7 3 i 

004 75 

137* 


CALL EL0ISA(NGPLG,NPEIG,ELXYZ,SF,DF,U,01,VL,BF,CD,CS,CL,LI,CFRC, 

000747 

004 75 

138* 


1 NCNT ,OELT ,KKK , IORDL > 

000747 

0 04 7 6 

' 139* 


DO 168 1=1, NPELG 

000773 

00601 

140* , 


NI=NOD(N,I > 

0010D1 

00502 

14 1 * 


PHI I >=DISPRV INI , KKK ) 

001004 

00603 

142* 

188 

CONTINUE 

001015 

00605 

145* 


DO 189 1 = 1, NPFL6 

001015 

00 510 

144 * 


DO 169 J = 1 , NPELG 

001015 

005 13 

145* 

189 

CL ( I ) = CL ( I ) +CD ( I , J >*PH 1 J ) 

001015 

00516 

146* 


IF (NASTRN .EQ. 01 GO TO 195 

001026 

00420 

14 7* 


IPARAM=2 

. 001 D30 

00521 

148* 


IF (NASTRN .EO. -1) IP AR AH r 1 

001032 - 

00523 

149* 


IF (NSTAB .NE. 0) GO TO 193 

001037 

U 0 5 2 5 

150* 


DO 192 1 = 1, NPELG 

001046 

00530 

1S1* 


N I =NOD ( N , I 1 

001051 

00531 

162* 


IF (K00E(NI1 .LT. 21 GO TO 192 

001053 

00533 

153* 


DO 191 J=l, NPELG 

00 1066 

00 6 Jj 

154* 

191 

CS( I , J> =0.0 

001066 

00540 

155* 


CSII ,11=1.0 

001067 

00541 

156* 


CL (I) =DI SPRV INI ,KKK 1 

C01071 

00542 

15 7* 

192 

CONT INUE 

001100 

00544 

158 * 

193 

CONTINUE 

ooi laa 

00545 

159* 


CALL ELMTRX (CS,CL,NPST ,NEHT , NPELG ,N0 D , N , CD , IB DI ST , 18D IS , DI SBD , 

001 1 00 

00545 

160* 


1 NBD,LIE , IPARAM) 

001100 

00546 

161* 


IF (NASTRN .ME. 1) GO TO 195 

001117 

00550 

162* 


00 194 1 = 1 , NPELG 

001132 

00553 

163* 


N f? = N 0 0 ( N , I 1 

001132 

005 54 

164* 

194 

D IS ( NR, KKK i =OIS (NR ,KKK 1 +CL (I) 

0011 35 

00556 

165* 

195 

CONT INUE 

' 001 1 4 7 

00560 

166* 


IF (NASTRN '.EO. 01 GO TO 196 

001147 ' 

00562 

167* 


GO 10 20D 

001151 

00563 

168 + 

196 

CONTINUE 

001153 

00564 

169* 


UO 19,-, 1 = 1, NPF LG 

001 I S3 

00667 

170 + 


NR : t.(.l) ( M, I 1 

UO 1 1 66 

1.0670 

171 + 


S (hf< 1 T , (RR , I'BW H Cl ( I ) 

{“. 1171 



CELO 


DATE D 1 097 8 


00S71 

00574 

00575 
00600 
00602- 
0060 3 

172* 
173* 
174* 
175* 
176* 
177 + 


198 

200 

201 

DO 198 J = 1 t NPELG 

NC - N OD ( N , J 1 —NR + M H3U 

SCNR,NCI=S(NR,NC)*CS(I,J> 

CONTINUE _ 

CONTINUE ' - ■ - - - - - " 

IF (NASTRN .EO. 0) GO TO 204 

001 176 
001176 
001203 
OD 1 223 
’ 001223 
001223 

00603 

178* 

C 



DO 1 22 3 

00605 

179* 



RETURN 

001224 

00605 

180* 

c 



001 224 

00606 

18 1* 


204 

CONTINUE i • 

00 1 230 

00607 

182* 



K K K = L 

001230 

00610 

183* 



IF (NSTAB .NE. 0> GO TO 208 

D01 231 

00612 

184* 



DO 206 1 = 1 j NPST 

UO 1 256 

0 0615 

185 + 



IF (KODEU) .LT. 21 GO TO 206 » 

001261 

00 6 J 7 

186* 



DO 235 J=1 , MBU 

001271 

00622 

187* 


205 

S ( I , J) =0.0 

00127! 

00624 

1H8* 



S t I * MHttU 1-1.0 

001272 

00625 

189* 



8(1, MRvi ) =DISPRV( I t KKK 1 

001274 

00626 

19 0* 


206 

CONTINUE 

oni 304 

006 3U 

191* 


208 

CONT INUF 

001 304 

00 6 31 

192 + 



IF UuDIST <KKK 1 .EO. 0) GO TO 220 

001 3U4 

0116 3 3 

19 3* 



11-IbOIST (KKK ) 

001306 

0 F. 6 3 <4 

194* 



DO 2 ID 1 = 1,11 

001 321 

Ul'637 

195* 



IE=IbDIS(IfKKKI 

001331 

0064 0 

l 96 * 



DO 2U9 J=1 , H6W 

001 332 

0 0 6 <l 3 

197* 


209 

S ( IE , J > =0 .0 

001 343 

011645 

198* 



S ( IE , HUB W 1 = 1 .0 

001344 

00646 

199* 


210 

S ( IE , MlsU 1 =DI SBD ( I tKKK 1 

001346 

006 5 0 

200* 


220 

CONT INUE 

001 352 

0 06 5 1 

20 1 * 



CALL BNDEO I S , NRM A X t NC M A K , NPS Tj HHB W 1 

nm 352 

0 06 52 

202* 



DO 2 bO 1 = 1, NPST 

001363 

0065 5 

203* 


250 

D1S<1,KKK)=SU,MBW1 ■ , 

001376 

01)65 7 

204* 



RE TURN 

001400 

1)0063 

?05* 



EN3 

001455 


E NO OF COMPILATION: NO' 0 IA6N0ST ICS . 


aHDG,P 


CELFE 



CELFE 


DATE 103178 


aFOR,$ CELFE, CELFE. 

HSA E 3 -i Q / 31/ 7 8-20:56: 12 (15,1 

MAIN PROGRAM 


S lOhAbf 

USED: 

CODE (11 003571; DAT A <0 > 002461; BLANK 

COMMON <2 ) OOOOOO 

CO MM 0 A 

BLOCKS 

" * — “ * * - - - 


C0L3 

SYSMTX 

007641 


C004 

DATAX 

000010 


C0l5 

CEL21 

GO 00 1 5 


CQ06 

CELZ3 

001140 


C0L7 

ORTHPC 

(JOOOoO 


CO 10 

MATRL 

00C0D5 


con 

NCASE 

L 0(1003 


cn 12 

UMTC V 

U0C015 


can 

GE0M1 

U00524 


ca m 

IMPCT 1 

00 1,6 50 


cais 

IMPCT3 

00G500 


CO 16 

I MPC T 4 

OOu.660 


CO 1 7 

ELHL At 

uOCMIO 


CO 20 

PARClOF 

00C002 


CO 2 1 

L ACRGN 

UCIU005 


CO 22 

RODCP J 

D000C3 


CO 2 3 

SRF ACE 

UOG077 


CO 24 

CEL22 

00GCIQ7 


CO 20 

TSTEP 

000312 


CO 26 

SURF CE 

000010 


cn 27 

MATkL 2 

OOC73Q 


CO 50 

PftOJrtT 

00 CiO 4 7 


CO 11 

STRESS 

CO c 5 30 


CO 32 

DJSPLC 

001620 


co ii 

STSELM 

000110 


cn '4 

0 1 SE L M 

000060 


1030 

IMPCT2 

000230 


CO 36 

SOLCNV 

G00574 


CO 37 

SOLS T R 

001254 


C040 

S OLD 1 S 

000344 


cam 

BDVER 

001375 


CO 42 

BOSTR 

002541 


CO 4 3 

8001S 

0007 13 


CO 44 

OATE 

000003 


r XTERnAL 

. REFERENCES (BLOCK, NAME 1 " 

- - 


00 45 

GEOMTR 

CO 4 6 

STIFF G 

CO 47 

"CLLTRN 

CO 50 

CEL3C V 

CO 5 1" 

CELANI 

CO 52 

CELDIS 

con 

EXIT 

CO 54 

ME.SHUP 

CO 65 

ALMS 



CEL Ft , _ . DATE 10 3 ITS 


CO 56 

STREN6 














CO 57 

FRCRIT 














CO 60 

CEL3JB. 














CO 61 

SLTEST 














CO 62 

N1NTR1 














CO b3 

NRDCS 














CD64 

NI02* 














CO 6 5 

NR DU * 














CO 6 6 

N I 03 S 














C n 67 

NPRTS 














CO 70 

N 1 0 1 4 














CO 7 1 

SORT- 














CO 72 

NCRR24 







, 







CO 7 3 

NWDC4 














C074 

NSTOPl 





- 

- ■ 

— • 

— 

— 







S TO h A &E ASSIGNMENT 

(BLOCK'V TYPE, RELATIVE LOCATION, NAME) 


- - - ■ 


-- 




CO 01 

OODOlfc 

11 

0000 

002122 

1 0 0 OF 

0000 

002123 

100 IF 

0000 

002-12 5 

1002F 

0001 

001350 

1007G 

cnai 

001356 

1014G 

0001 

001366 

10206 

CC01 

001404 

102 76 

0001 

001406 

1032G 

0001 

0,014 3.1 

10446 

CO 01 

001437 

10516 

COOl 

001461 

1062G 

OCOl 

001467 

1D6 7G 

0001 

001470 

107 1G 

0000 

D02126 

HOOF 

LOCI 

001513 

11026 

coon 

002127 

1105F 

ccai 

0U1 527 

1 11 OG 

D001 

001544 

112 0G 

0001 

0 D 15 5 3 

1126G 

cnoi 

001574 

11366 

0001 

001602 

11436 

COOl 

001606 

1 14 7G 

0001 

001631 

11S7G 

0 DO 1 

001637 

11646 

cnci 

001640 

1 1 66 G 

GOOO 

002130 

1200F 

CC01 

001670 

120 1G 

0001 

001671 

1204G 

0001 

001733 

12 2 4 G 

rnoi 

001773 

12476 

0000 

002132 

1 2 5 OF 

GCQO 

QU2 1 36 

12S5F 

0001 

00201 3 

126 CG 

' 0001 

•002027 

12666 

COCl 

001655 

1 3 CL 

ocon 

002142 

1300F 

CC01 

002061 

1 304G 

0001 

002 i ri 

1326G 

0001 

002112 

13316 

con 

002 1 76 

1 3 4 4 G 

GC01 

001705 

135L 

CC01 

002210 

1354G 

0001 

00223b 

1363G 

0DG1 

002246 

1 3666 

C0G1 

0022 7 6 

13736 

CODO 

002143 

1 4 OOF 

CC01 

002315 

1406G 

0001 

002J16 

14 1 1G 

0001 

002317 

14 146 

COOO 

002145 

1420F 

0C01 

002362 

1427G 

CC01 

002363 

1M32G 

0001 

002414 

1445G 

liOOl 

002444 

1 *4 6 56 

C0G1 

0Q244 5 

1470G 

OODI 

002457 

1476G 

CC01 

001766 

1 50 L 

0000 

002151 

1S00F 

0001 

002464 

15036 

COU1 

0G246S 

15066 

COOl 

002503 

15156 ' 

'ccoo 

002 170 

1 52 OF 

0001 ' 

002504 

152GG 

0000 1 

002173 

1530F 

COG1 

002525 

15326 

COOl 

002526 

1S35G 

ccoo 

0G2176 

155 OF 

0 001 

002564 

155 1G 

OCOl 

002572 

15566 

C0L1 

0G2614 

1567G 

CC01 

002622 

15746 

C CGI 

002623 

1 57 6G 

ooon 

002223 

1 5 8 OF 

OQLiO 

00222b 

1582F 

COCO 

002244 

15B5F 

COOO 

002262 

1600F 

CC01 

00? b46 

160 7G 

COOO 

0C2263 

16 1 2F 

OCOl 

002662 

16 156 

caoi 

002677 

16256 

0001 

002706 

1633G 

CC01 

002727 

164 3G 

0001 

062735 

165 CG 

0001 

002741 

1 6 5 4 G 

COCl 

002767 

1666G 

acoo 

002307 

1682F 

ccoo 

• . 002314 

163 3F 

0000 

002315 

1684F 

0 coo 

002325 

1 6 8 5 F 

coco 

0C2J35 

1 6 86 F 

ccoo 

‘ 002345 

1667F 

crao 

“002355 

17UC.F 

0001 

003007 

170C6 " 

OCOl ' 

003015 

1705G ’ 

caoi 

□030 1 6 

17076 

c coo 

002363 

17 2 OF 

CC01 

003565 

2 00 0L 

0001 

003205 

2006G 

OCOl 

003206 

2010G 

cooi 

003223 

20176 

CC01 

003227 

2023G 

CC01 

003250 

20326 

0001 

0C32S4 

2036G 

00C1 

003267 

20 4 4 G 

C001 

003276 

20526 

COOl 

003314 

20616 

CCQ1 

303325 

2C'6 7b 

0001 

003333 

2074G 

OCOl 

0C2011 

21 OL 

CO G 1 

003337 

21006 

COOl 

033351 

21066 

CCG1 

0D3373 

21146 

0001 

003377 

212CG 

OCOl 

003413 

21276 

COCl 

003417 

2133G 

0 CD 1 

003434 

2142G 

CC01 

OU 34 45 

2 1506 

0 00 1 

00345 3 

21 5 56 

0001 

0 0i34 5 7 

21616 

LOCI 

003474 

21706 

COOl 

003505 

2176G 

ccoo 

0D24C0 

2 20 OF 

000 1 

003506 

220 CG ' 

~ooai ' 

’ OQ'3523 

22076 

cnoi 

003524 

22116 

0001 

003536 

2217G 

CC01 

003537 

2 22 26 

0001 

00354 3 

2226G 

0001 

0 Q : C4 6 3 

25L 

COCl 

00204 3 

26CL 

COOl 

000146 

2706 

CCC1 

0U2055 

2 70 L 

0001 

00014 7 

272G 

0 001 

00 20 7 5 

32 0 L 

COOl 

000260 

3256 

COOl 

000337 

3 4 6 G • 

CC01 

000344 

3536 

0001 

000357 

36 1 G 

0601 

000367 

3676 

LOCI 

000402 

3756 

CC01 

000654 

40L 

CC01 

0DH403 

4 OUG 

ooai 

DC207 7 

4 OOL 

0001 

000414 

407G 

COCl 

0004 31 

4 150 

COOl 

000442 

423G 

CC01 

000446 

4 30 G 

000 1 

00044 7 

4 3 3 G 

OCOl 

000507 

4 4 4 G 

cnci 

000513 

4506 

COOl 

0U0S2S 

4 56 G 

OCOl 

000547 

4 64 6 

0001 

' 00055 3 

470G 

■ 0001 

0Cr567 

477G 

COCl 

000772 

4 BL 

COOl 

002102 

snoL 

oroi 

000573 

5 03 G 

ooai 

001116 

5 1 L 

0001 

oor.bio 

51 2G 

COOl 

000621 

520G 

COOl 

002121 

S20L 

CCC1 

000627 

5 25 G 

0001 

002152 

525 L 

UOOl 

000633 

53 1G 

COCl 

002213 

533L 

COOl 

002301 

535L 

CC01 

001211 

54L 

0 00 1 

P DO fa 5 a 

5 4 0 G 

OCOl 

002332 

54 OL 

COCl 

000664 

5466 

COCl 

0UC665 

5 5 1 G 

COCl 

001275 

5 6L 

0001 

OL07G0 

560G 

UCG1 

oorvoi 

56 3 G 

COCl 

0C0721 

5 75G 

CC01 

001341 

60L 

crci 

000712 

6 04 6 

0001 

0u073 3 

607 6 

0061 

002374 

61 5L 

LOCI 

noioia 

6 25G 

COul 

001011 

6 27 G 

CC01 

001326 

6 3b G 

0 001 

00162 7 

6 4 GG 

0 001 

0 J ?‘t 1 7 

0 4 ■> L 



CELFC 


DATE IQ 3 178 


CO 01 


0Q1Q41 

6466 

0001 


00-1054 

6 5 26 

CC01 


001055 

6 55 G 

0001 


001075 

667G 

0001 


001076 

672G 

cd c i 


‘001102 

67 6 G 

coof 


0U2423 

"700L” 

'ccai' 


00 2 4 34 ' 

7 01 L 

6001 ' 


"O 0114 6* 

706~G " 

OOGl 


0Q1173 7 1 5 G 

cnot 


002543 

7201 

CODl 


001202 

7226 

CCCl 


001215 

7 32 G 

0001 


001224 

735 G 

0001 


003033 

739L 

cota 


001257 

7440 

COOl 


001266 

7 5 1 G 

CCOl 


001304 

7 62 G 

0001 


00-132 6 

7716 ' 

ocai 


001335 

77 6 G 

C0C1 


003034 

800L 

cool 


003560 

82QL 

ccai 


003564 

8 50L 

0005 

R 

000001 

A 

0005 

R 

000002 

ALPHA 

C024 


000030 

bF 

CC32 

R 

001254 

BF S 

CC14 

R 

001370 

C 

0017 


OGOOOO 

CD 

0015 


00C040 

CFRC 

CO lb 

R 

0LC1 10 

CINT 

C 007 


000055 

CK 

ccco 

R 

000245 

CKF 

001 7 


000200 

CL 

0C26 

R 

000002 

CON S T 1 

CO L J 

ft 

0021 a j 

CONS T 2 ' 

CCil 7 


‘OliOIOO 

CS 

cgi6 

R 

000044 ' 

CSPF 

0016 

R 

OGOOOO 

CSTF 

0005 

R 

0 0 PO 1 3 

CELT 

CO 17 


000250 

or 

CC26 

R 

OOOGOl 

Ulf F 

CC12 

P 

000013 

OIF FS 

ooon 

R 

OOOOOO 

DIM 

occa 

R 

0321 1 3 

DI ML 

COCO 

P 

0021 1 2 

U I H V 

CG24 

R 

000004 

GIMX 

C C 24 

R 

GO 00 05 

DIM Y 

0024 

R 

OOOuOo 

D I M2 

C C 4 7 

R 

oorooct 

DIS 

CO H 3 

R 

000347 

0 1 SB 0 

1032 

R 

OOOCOG 

DISN 

CO 32 

R 

000344 

0 IS PR V 

0034 


OCOGOO 

OL 

Q02S 

R 

000032 

DT 

CO C 7 


000033 

L 

CCU3 

R 

oocuno 

tF 

C C 17 


000310 

E LX 72 

0000 

R 

002076 

FAC 

001? 

R 

000007 

FACTE 

C n 12 

ft 

OuCGJl 

FACTL 

C01? 

ft 

DOOLCS 

f ACTR 

CC1? 

R 

CO 00 3 1 

FACTS 

0012 

R 

000002 

FAC TV 

onoo 

R 

007075 

FACT VO 

CCOO 

P 

000131 

F J 

C C 1 5 


000030 

F JCB 

CC14 

R 

GO 1 140 

F JN 

0014 

R 

OC 1 25 4 

FJPRV 

GO GO 

1 

0020 li 

I 

COM3 

I 

0 u 0 tl Q 3 

IODIS 

CC4 3 

I 

ODOogci 

1B0IST 

CC42 

I 

GOOD 1 1 

IPOS 

0042 

I 

0 0 GuO C 

I60ST 

0 04 1 

2 

00CG05 

I B 0 V 

com 

I 

OOQOOC 

HI DVT 

CC04 

I 

000007 

1C0ND 

C C 44 


GO GOOD 

10ATE 

001 1 

1 

OCOOOO 

I NOE X 

0 d05 

I 

Goron 

INNER 

CO 2 3 

U 

CHJCU65 

INIF 
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cooaoo 

0 0 1 0 c 

4 * 
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’ " GOCCOO 
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5* 
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* 

OOOC30 

GQ1GC 

6* 
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oooroo 
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OO'OCOO 

odinc 
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D03C00 

0G13C 
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uaaooo 

CC1CC 
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onocDO 

go me 

12P 
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ODOCGO 

30101 

1 3 * 



INCLUDE PAK'AHlfLIST 


OOGCOO 

cum? 

13b 

P AR AMI 

PR CC 


cooroi 

CCil 0 2 

13* 

C 




D0GC01 

CO 1 C 3 

“ ' 13* 



PARAMETER- NPMTr 76,NEMT= 33,NPM= 7b,NEM= 33 ... 

* 

GOGCOl 
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001C4 

13* 

PARAMETER NPELG= 8,NPE= 8 


OOOCOl 

DO 1 0 £ 

13* 

PARAMETER N0FRS=53 , ND INT=10 


00 0001 

00 1 0 £ 

13* 

C 


OOOCOl 

OOlOt 

13 + 

PARAMETER NRH AX =2000 , NCM A X=2 


000001 

0010 7 

13* 

PARAMETER NGPLG=2,NGP=2 


OOOCOl 

0011 C 

13* 

PARAMETER NCNT=£> , NF RC = NPM 


OOOCOl 

C011 1 

13* 

PARAHETFR IU=5,NDPJT= 10,NTSTEP=20Q 


OOOCOl 

00111 

13* 

PARAMETER NBV=NPM»NBS=NPH»NB 0 = NPK 


OOOCOl 

00111 

13* 

END 


OOOCOl 

coil 2 

14* 

INCLUDE CELFE'l ,LIST 


OOOCOl 

o-niii 

15* 

C 


OOOCOl 

CQ11 2 

15* 

CELFE1 PROC 


00QG01 

00 11*. 

15* 

DIMENSION TITLE (12 ) 


OOOCOl 

001 1 £ 

15* 

DIMENSION PRS(NPM) ,FJ(NPM> 


OOOCOl 

GC!11 £ 

15* 

DIMENSION CKF (NFRC,3» , EF ( NF R C , 3 , 3 > , PNF ( NF RC ,3 ,3 > 


OOOCOl 

00117 

15* 

DIMENSION I0RDERUU1 


OOOCOl 

win 

15* 

C 


OOOCOl 

0012 1 

15* 

COMMON / SYSMTX/ S t NRM AX , NC MA X 1 ,NS T AB 


000001 

oo ir i 

15* 

COMMON /CATAX/ R HO T . RH 0 P , V { 3 t , T YL 0 , P YL D , I CO ND 


OOOCOl 

00121 

15* 

COMMON /CELZ1/ IORGC,A, ALPH A , N ET , NPS , NHB W',N BU ,NPPJ, NEPJ , INNER , 


OOOCOl 

00121 

IS* 

1 I T£ R , 0 CL T « NFST 


QO Q COX 

0012 2 

15* 

COMMON / CE L Z 3 / X PR V ( NPHT , 3 J , V ERP R V t NPMT , IU ) 


OOOCOl 

001? u 

15* 

COMMON /OR TMPC/ SLT(3,3),SLC(2,3),LI(3,3),E(3 t 3>,PNIU»3,3),CK(3» 


OOOCOl 

UCJ1 2 £ 

15* 

COMMON /MATRL/ NF R AC , THI U , P M It; , I S 0 T , I SOP 


OOOCOl 

GO 1 2 £ 

15* 

COMMON / NC A SE / INDEX , NASTRN , N SLIDE 


OOOCOl 

Ou 1 2 7 

15* 

COMMON / UN IT C V / 1UN I T , F A CTL ( 2 7 ,F A C T V ( 2 1 , F AC TR (2 ) , FACT E'< 2 > , 


OOOCOl 

0 a 1 2 7 

15* 

1 FACTSl? ),DIFFS(2> 


OOOCOl 

001 3C 

15* 

COM MC N /CCOm/ KODt (NPMT) ,NOC (NEHT.NPELG) 


C00C01 

noi 7 1 

15* 

COMMON /IMPCT1/ XN{NPMT,3 ), VERN t NPMT, IU >, FJN( NPM) .FJPRV (NPM) , 


OOOCOl 

0017 1 

15* 

1C(NPMT,NCNT,NCNT) 


OOOCOl 

00131 

15* 

COMMON / IMPCT 3/ OMtNPE , 3) ,FJCB (NPE ) ,CFRCl NPEL 6,NCNT ,NCNT J 


OOOCOl 

00132 

IF* 

COHMON / IMPC T4 / C S T F ( NC N T , N C N T > , C SPF ( NCNT »N CN T 1 , 


OOOCOl 

00132 

IS* 

1C1NT ( NO I NT ,NCNT ,NCNT) 


OOOCOl 

00134 

15* 

COHMON /ELMLAG/ CD ( N PEL G , NPE L C- > , C S ( NPELG , NP EL G J ,CL ( NP EL G 7 , 


OOOCOl 

00134 

15* 

ISf 1 NMCLG>,w ( 3.NPELG) , OF ( 3 , NP E L G 1 , PM ( NPE LG > , EL X Y Z 1 NPEL G , 3 > , 


L0JC01 

0C13 4 

15* 

2VL(NPELG,IU> 


OOOCOl 

001 J£ 

15* 

COMMON /PAROOF/ MAX00F,N60 


OOOCOl 

001 3t 

15* 

COMMON /LAC.RGN/ NP S T , NEL T , 1 0 RO L , NB U T , NHB U T 


OOUCOl 

0013 7 

15* 

COMMON /NODEPJ/ NE P JT , NPP JT , IN TF T 


caocoi 

com c 

15* 

COMMON/SRF ACE/ NFS(NDFRS) ,INTF (NOINT) 


OOOCOl 

0014 1 

15* 

COMMON / CE L Z2 / NPTR , NE TR , NPL G , NELG , DI HX ,D IM Y, 01 HZ 


OOOCOl 

001<l 1 

15* 

COMMON /TSTEP/ ITGIV,T1M£,0T (NTSTEP) 


OOOCOl 

0014 2 

15* 

COMMON / SURFCE/ SMI U , D IFF , C 0 N S T 1 , VM. AX , VMI N , XO IM ( 3 > 


OOOCOl 

00144 

15* 

COMMON /NATRL2/ YIELD ( NPMT >, NODF RC (NFRC I 


OOOCOl 

0014 £ 

15* 

COMMON /PROJMT/ PSLT(3,3),PSLC(3 T 3(,PE(3,3),PPNIU(3,3>»PCK(3> 


OOOCOl 

0014 £ 

15* 

COMMON /STRESS/ ST S N 1 NPM , 3 , 3 ) , ST S PR V < NP M , 3 , 3 1 


OOOCOl 

0014 7 

15* 

COMMON /DISPLC/ ,DISN(NPMT»3I ,DISPRV(NPMT t 3) ,X (NPHT, 3) »BFS(NPHT,3) 


OOOCOl 

00 1 £ C 

15* 

COMMON /STSELM,/ STL(NPE,3,3) 


OOOCOl 

0015 1 

15* 

COMMON /OISELM/ DL ( NPEL G , 3 ) , 6 F (NP ELG , 3 ) 


OOOCOl 

00151 

15* 

COMMON /IMPCT2/ PRSNf NPM > ,PRSPRV ( NPM) 


OOOCOl 

00152 

15* 

COHMON / SO LC N V / VER(NPHT,IU1 


CO 0 CGI 

0015 4 

15* 

COM HCN / SOLSTR/ STS(NPM,3,3) 


00 0 CD 1 

C 0 1 5 £ 

15* 

COMMON / SO LD I S / 01 S ( NPMT, 3 > 


onocoi 

00 1 5 £ 

15* 

COM HC N / BDVER / IBD V T ( 10 ) , IBO V 1 NP V , I U> , VPD »N BV , 1 U ) 


OOUCOl 

0015 7 

15* 

COHMON / ED ST R / IBDST (3, 37 »IBDS (NB S , 3 , 3 ) ,SBU (NBS ,3,31 


cooroi 

GCiUC 

15 + 

COMMON /BOOTS/ IbO 1 S T ( 3 ) , 1 6(7 1 S ( NB ft , 3 ) , 0 1 b BO (N RD ,3 1 


OOUCOl 



C CL PE 


DATE 103178 


0016 1 

15* 


COHHON /DATE/ IDATE (3) 

000C01 

0016 2 

15* 


EQUIVALENCE (S(1>,EF(1>) 

OOOCOl 

00 16 2 

15* 

END 


aoocoi 

0016 2 

16* 


DATA IORDER/1,2,3,4 ,5/ 

oaoooi 

0016 2 

17* 

C 


ooanoi 

0016 2 

18* 

C 


GOOCCl 

0016 2 

19* 

C++****** *++**+*+****+* 

000031 

0016.2 

20* 

c 


OOOCOl 

0016 2 

2 1 * 

c 

NELAG = D 1ST XOT, READ OATA 

OOOCOl 

0016 ; 

22* 

c 

NFL AG =*1 . 2ND XOT, GO TO LOOP1 

OOOCOl 

0016 2 

23* 

c 

NFL AG =-l 3RD XOT, GO TO L00P2 

OOOCOl 

00 It 2 

24* ■ 

c 


OOOCOl 

0016 2 

25* 

c 


OOOCOl 

0U 1 6 2 

26* 

c 

NAS TR N r 3 . IN-CORE CELFE RUN 

ooucoi 

0016 2 

27* 

c 

= ♦1 CELFE/NASTRAN RUN 

OOOCOl 

0016 2 

28* 

c 

=-l CELFE RUN USING NASTRAN SUBROUTINE SOLVE ONLY 

OOUCOI 

C 01 6 2 

29* 

c 


coacoi 

OClfc 2 

30* 

c 


GO 0 CO 1 

0016 2 

31 * 

c 

ISOT = 0, ISOTROPIC, 

OOOCOl 

0016 2 

32* 

c 

= 1 , UNIDIRECTIONAL FIBER COHPOSITES 

OOOCOl 

0016 2 

33* 

c 

'= 2,3,... FOR OTHER ANISOTROPIC MATERIALS 

OOOCOl 

0016 2 

34* 

c 


G00C01 

0016 2 

3 5 * 

C* ************ ********* 

OOOCOl 

Ou 16 2 

36* 

c 


ooacoi 

0016 2 

37* 

c 


000CD1 

0016 £ 

38* 


READ 1002, NASTRN ' ' T 

DO 0 CO 1 

001 ?C 

39* 


READ 1002, NF LAG 

00 0 CO 6 

00173 

40* 


IF (NFLAG .NE. 01 bO TO 400 

00 0 C 13 

L! 1 7 £ 

41* 

1 

READ. (5, 1001,END=2000ITITLE 

003C16 

OCc-r.C 

42* 


PRINT 1001, TITLE 

000C26 

GO 2 3 2 

43* 


INDEX = 1 

OOCC35 

5020 2 

44 * 

■ c " 

“ - - - "" • * -*— •- 

030035 

uo2 n 2 

45* 

c 


00 0 035 

0020 2 

46* 

c 

HEAD DATA 

000035 

00 20 2 

47* 

c 


GO 0 C 35 

00202 

48* 

c 


OOOC35 

□ 0 20 4 

49* 


RE AC 'HOO,IORDC,IORDL,NFST,INTFT,ISOT,ISOP,IUNIT,ITGIV,ICOND,ITER 

000037 

0020 4 

60* 


1 ,NSL1 Of 

000037 

0022 1 

51* 


REAL 1400, A , ALPHA, TIME 

000C56 

0022 £ 

52* 


RE AC. '120 0, I VU) ,I=1,3>,0IHX,DIMY,DIH2 

000065 

002 3 4 

53* 


READ 1200, RH OT , RHOP , TM IU ,PM 1 0 ,T YL D ,P YLD , SHIU 

GOG 100 

002 M ‘ 

54 * 


REAC 1100, NPS,NET,NPPJ,NEPJ,NPPJT,NEPJT ,NPT R , NE TR ,N PL G ,N ELG , 

00G113 

0026 £ 

55 * 


iNPST,NELT,HAXDOF, NGD 

QDC113 

CJ26 £ 

56* 


REAC 1100, < IBDVTU 1 ,1 = 1, IU) , MIBOSTtI, J) ,J = 1 ,3 »,I=1,3»', 

000135 

0026 E 

£7* 


1 (IBCIST U) ,1 = 1,31 

000135 

0C26 b 

58* 

c 


000135 

002 6 S 

£9* 

C++* ****************** ***+*+**+*++ 

GO Q 1 35 

002 6 E 

60* 

c 


000135 

L 0 2 6 t 

61* 

c 

NPS TOTAL NOOES IN IMPACT ZONE 

000135 

£3026 E 

62* 

c 

NET — TOTAL ELEMENTS IN IMPACT ZONE 

000135 

0026 E 

63 « 

c 

NPPj NO. OF NODE BEGINNING ThE PROJECTILE 

000135 

00 2 6 £ 

64 + 

c 

NE P J NO. OF ELEMENT BEGINNING THE PROJECTILE 

00 U 1 35 

00 2 6 E 

65* 

c 

NPPJT TOTAL NUDES OF PROJECTILE 

000135 

0026 E 

66 + 

c 

NEPJT TOTAL ELEMENTS OF PROJECTILE 

ODD 135 

01.26 E 

67* 

c 

NPTR NO. OF NODE BEGINNING THF TRANSITION LATER 

030135 

0026 £ 

68 + 

c 

NF T R NO. OF ELEMENT bfGINNING THE TRANSITION LAYER “ 

000135 
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i 

N> 

LJ 


O ^ 

^ kj 

"0 o 
o ^ 

r*+ 

O **0 
p & 

*> o 

C ft 
*<5? 


00 26 £ 
0 026 £ 
0026 £ 
00265 
00265 
0026 5 
0026 £ 
00265 
00265 
0026 5 
00265 
00265 

00265 

0026 5 
0026 5 
00265 
00 30C 
PC 30 1 
00 30 2 
00 30 3 
CO 3C*l 
003!) 5 

0030 6 
00301 
Gu3 1 C 
C0313 
003 1 2 
Ou 3 1 3 

0031 *i 
0031 5 
00315 
be 31 5 
0031 5 
0031 5 
0031 5 
0031 5 

0031 6 
00 31 1 

0032 1 
CO 2 2 3 
0032*1 

0032 1 

0033 C 
'00331 

0033 3 
003 3** 
00335 
0 03 3 £ 
00331 
00 3** C 
C03*) 1 
003** 2 
GO 3 4 2 
C 0 3 4 2 

0034 2 
C C 3 4 2 


69* C NPLG -t NO. OF NODE BEGINNING THE LAGRANGIAN ZONE 

70* C NELE NO. OF ELEMENT BEGINNING THE LAGRANGIAN 20NE 

..71* c NPS7_--~r_.T.0TAL. NODES IN.. COMPLETE STRUCTURE 

72* C NEL‘T TOTAL ELEMENTS' IN COMPLETE STRUCTURE'"” 

73* C 

74* c*************************** 

75 * C _ _ _ _ 

76* C KOOeVi* "= 0 EULERIAN NODES 

77* .. C =1 MOVING NODES IN COUPLING ZONE { INCLUDING 

78* C FREE SURFACE IN EULFRIAN ZONE) 

79* . C - 2 INTERFACE NODES 8ETWEEN IMPACT AND 

80* C LAGRANGIAN ZONES 

__ 81* C . = 3 LAGRANGIAN NODES 

82* C ~ 

83* C******** ******* ************ 

84* C 

85* FACTV0=1 .0UE-6 

86* FACTLCll-l.Q 

_ . '87* ... . FACTV(1 >=1 .0 _ 

88* FACTK 11 j=1.0 ' ' '"" 

89* FACTE 11 > =1 .0 

90* FACTS 11 > =1 .0 

91* 0IFFS<1)=1.0 

92* ' FACTL I2)=2.54 

93* FAC1V 12 ) =FACTL12 > 

94* ~ " ' ' ' FACTh (2 > =27 .67990 ” “ * " ' 

95* FACTE <2>=FACTV(2)*FACTV<2I 

96* FACTS 12 ) =100000000. 0/6. 894757 

97* FAC = 1. ODE-12 

98* DIFFS I2)-12.0*32.174*FAC 

99* C 

101* C MESh GENERATION 

ilD2 * C 

103* C********** *********************** 

104* C ' 

■105* 0IM,= CIMX 

‘ 106* “ ' '“'IF 1DIM .GE." OIMY) 0IH = DIHY"' ’ " 

107* IF 1CIM .G£, DIMZ) DIM=DIH2 

108* CALL GEOMTR(X) 

109* DO 12 J=l,3 

110* V< J 1= V« J >*FACTV0 

..1111* X0IMJ) = DIK 

112* 12 ‘CONTINUE ‘ 

113* DIFF = 1.0 

114* ' VMAX=V0*RH0T 

115* VMIN=0.0 

116* V0-S0RT1V11)«*2+,V12)**2+VI3)**2) 

... 117* CONSTl=RhOT*VO 

"118*" CONST 2-0 .5Q*CONSTl*"VO 

119* NEW : 2 * N H B U 

120* NBWT-2*NHB»T 

121 * C 

122* C ' 

123* C INITIAL CONDITIONS 

124* ' ' C ' • - ~ * 


00 0J35 

000135' 

DO 0 1 35 

000135 

000135 

000135 

000135 

000135 

000135 

000135 

000135 

000135 

000135 

000135 

000135 

000135 

000161 

000163 

000 165 

000167 

ooom 

CJC0173 
000175 
000177 
000201 
000202 
000204 
030207 
000211 
000213 
000213 
000213 
000213 
000213 
CO 0 2 13 
"00 0 2 13 
000215 
000217 
000225 
CO 0 2 33 
000236 
000260 
000262 
000265 
OD 0 265 
000267 
000272 
000273 
000310 
000312 
U0031S 
CO 0 320 
lODO 320 
00 0 320 
bOO 320 
00 J 320 
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0034 2 

125* 

C 



" '0034 2' 

126*“ 



fFTiCONO" .C'Q. 0»”60~f0 25 

0034 £ 

127* 



DO '14 1= 1 , NPS T 

0035 C 

128* 



YIELD 11) =TYLO 

0035 1 

129* 



VER (I,5)=RH0T 

0035 2 

'130* 



DO 14 J~ 1 1 4 

003 5 5 

131* 


■14 

VER n ,j > =o . n 

00 36 C 

132* 



DO 15 I = NP P J * NPPJT 

00 36 2 

133* 



Y1ELC <I)=PYLO 

00 36 4 

134* 



WER I I ,4 ) =0. 5 Ci *R HOP* VO** 2 

O'O 3 6 5 

135* 



VER (3,5) = RhOP 

00 36 6 

136* 



00 16 J=l,3 

0037 1 

137* 


15 

VER U ,J)=RHOP*V(d) 

GO 3 7 4 

138* 



00 16 1 = 1 ,NPST 

0037 7 

139* 



DO 16 J=l,3 

00402 

■140* 



CIS d ,J)=3.0 

0040 2 

141* 


16 

BFS ( I ,J> =0.0 

DO 4 0 6 

342* 



DO 17 1=1,1 N TFT 

004 1 1 

143* 



hi - I N 7 f ( 1 1 

004 1 2 

144* 



VER INI, 4 ) = 0 » 5 0*RH0P* V 0**2 " 

GC41 2 

145* 



VER IN 1 ,5 ) = RHQP 

004 1 4 

146* • 

' 


DO 17 J= 1 , 3 

004 1 7 

147* 


17 

VER (NI,J)=RHOP*VtJ) 

U04 ? 2 

148* 



DO 20 1=1, NPS 

(JO 4 ? £ 

149* 



FJ( I 1 = 1. C 

00426 

150* 



PR S (I ) = D.G 

0042 7 

151* 



DO 20 J = l,3 

0 J 4 3 2 

152* 



DO 2C K = 1 , 3 

JG4 3 £ 

153* 


20 

STS ( 1 ,J, K) =0,0 

004 3 £ 

154* 

c 



0044 1 

155* 



60 TO 40 

~ CG4 4 2 " 

' 156* 


" 25 

CONTINUE " ' ■“ 

0044 2 

157* 



DO 28 J=1,IU 

0044 6 

158* 


28 

READ 220 0, ( VER T I ,d ) , I = 1 , NP S T ) 

004 6 £ 

169*. 



DO 30 J=i,3 

004 6 C 

H60* 



L 1 E = 1 

004 6 1 

161* 



IF t X SOT .GE. 0) L X f = J 

0046 2 

"'>162* 



DO 3 C K = L I E , 3 

0046 6 

163* 


30 

READ 2200, <STSd,J,K), 1 = 1, NPS) 

004 7 6 

164 * 



DO 32 0=1,3 

GOTO 1 

165* 


32 

READ 2200, (DISH, J), 1 = 1, NPST) 

GO’ji C 

166* 



READ 2200, ( P RS < I > , I = 1 , NPS ) 

00 51 6 

,167* 



READ 22(70 , (FJ(I),1 = 1,NPS) 

00 6 2 4 

168* 



00 3b u= 1 , 3 

0052 7 

169* 


35 

READ 2200, IBFS(i,J), 1=1, NPST) 

005 3 6 

170* 



RFAD 2200, ( V IELD (1 ) , 1=1 ,NPS T ) 

005 3 6 

171* 

c 



005 4 4 

, 172* 


40 

CON T INUE 

0054 £ 

173* 



DO 44 1 = 1, NPST 

oO-;5C 

174* 



DO 44 L=l, IU 

00 6 ‘ 2 

175* 



VER M 1 ,L ) = VER ( I , L ) 

ad 6 5 4 

176* 


44 

VERPRV(I ,L) = VER ( 1,L) 

0065 7 

177* 



CO 45 1=1, NPST 

005 6 2 

178*' 



DO 45 0=1,3 

DC 5 6 £ 

179* 



DISN(I,J)=DIS(I,J) 

CC56 6 

' 180* 



DISf'HVlT,J)=OIS(r,J> 


DATE 103178 

QD 0 320 

000'323' 

OOP 337 

ODD 337 

000340 

POD 344 

000344 

000357 

000357 

0I5036Q 

OQO 362 

GOO 36 7 

GO 0 36 7 

000403 

000403 

000403 

000403 

000414 

o 0 0 4" 1 4 

000415 

000420 

000431 

000431 

GO Q 44 2 

00 D 44 2 

000443 

000447 

000447 

003447 

000447 

000461 

000463 

00 0 4 o 3 
000507 
000525 
000525 
000527 
' 000533 

000547 
000567 
003567 
000602 
000613 
" “ 00 U 62 7 

000627 
CO 0 642 
DO 0 6 42 
000654 
L7U654 
L 0 U 6 6 5 
000665 
000666 
000701 
000701 
000701 
DO 3 702 
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GA'TE 103178 


00567 

181* 



XNI I , J ) =X ( I , J ) 

000704 

0057 C 

182* 



XPRV(I,J)=X<I,J1 

000706 

0057 1 

1 83* . 


.J*5 

CONTINUE 

000721 

0057*1 

184* 



00 47 1=1, NPS 

000721 

0057 7 

185* 



FJNt I )=Fu< 11 

000721 

006 0 C 

1 86* 



FJPRV (I) = FJ< I ) 

000722 

01160 J 

187* 



PRSM I)=PRSI I) 

000724 

00602 

168* 



PRSPRVII>=PRS<I» 

000726 

0060 1 

189* 



DO 47 J=l,3 

00 U 733 

C060 fc 

190* 



DO 47 K= 1 » 3 

DO 0 733 

0061 1 

191* 



STSM1,J,K)=STS<I,J,K» 

000733 

0061 2 

1192* • 


47 

STSPRVd ,J,K)=STS(I,J»KJ 

000734 

0U61 2 

193* 

C 



000734 

0061 2 

1 94 * 

c 



000734 

0061 2 

195* 

c 


INITIAL MATERIAL PROPERTIES 

000 734 

006 1 2 

196* 

c 



000 734 

006 1 2 

197* 

c 



000734 

0061 t 

158* 



IF ( I TLR .NE. 0) GO TO 48 

000750 

U 1)6 2 C 

. 1"*.. 



CALL STIFFG<NPMT,C,NPPJ,NPPJT,INTF .IN'TFT, NPST ,CST F , CS PF , NCNT , 

000752 

006 2 0 

200* 


i 

CINT,KODE> 

000752 

006? 1 

201* 



60 TO 51 

GO 0 7 70 

U06 ? 2 

202* 


48 

CONTINUE 

GflO 772 

0062 ‘ 

203* 



RE A 0 2200, ( (CSTF<I,J),J=l t NCNT) ,1=1, NCNT » 

000772 

0U fc 3 H 

204 * 



READ 2200, C ( CSPF 11 , J ) , J= 1 , N CN T ) , I -1 , NCNT 1 

001C20 

0066 E 

20 5'* 



00 49 K= 1 , INTFT 

001C41 

0065 C 

206* 



N=INTF IK > 

Q01C41 

0065 1 

207 + 



DO 49 1=1, NCNT 

00 1042 

CG65 *t 

208* 



CO 49 <J= 1 , NCNT 

001C55 

0065 7 

209 + 



CINT ( N , I, J J = CSTF «I , J ) 

001055 

0066 C 

210* 



IF (K ODE ( N 1 .EC. 0) CINT(N,I,J)=CSPFCI,J) 

001056 

006 6 2 

211* 


49 

CONTINUE 

00 1C76 

0066 6 

212* 



DO 5 C J= 1 , NCNT 

00 1C76 

0067 1 

213* 



00 5C K=1,NCNT 

QO 1076 

1)067 *i 

214* 


50 

PE A C 2200, (C II ,J,K) ,1 = 1, NPST) 

001C76 

0G70 4 

215* 


SI 

CONTINUE 

001 116 

0070*1 

216* 

c 


+ 

001116 

0070 *t 

217* 

c 



001116 

00704 

218 + 

c 


GENERATE BOUNDARY CONDITIONS 

GO 1 116 

GC,7n*i 

219* 

c 



001116 

CO 7 0 *i 

<22 0 + 

c 



001116 

00705 

221* 



DO 54 J=1,IU 

001116 

com 

222* 



N=I8CVT (J) 

DO 1 1 55 

0071 1 

223* 



IF IN.EO.Q) GO TO 54 

D01 157 

007 1 i 

224 + 



READ 110d,<IBDV(I,J),r=l,NJ 

001161 

0072 1 

225* 



00 53 K=1,N 

001202 

0072*1 

,22 6 + 



KI=IEDV(K,J1 

001202 

00725 

227* 


53 

VR0<K,J)=V£RtKI,J) 

□01203 

0072 7 

228* 


54 

CONTINUE 

001215 

OQ73 1 

229* 



DO 56 J= 1 , 3 

001215 

007 3*1 

230* 



00 56 K=I,3 

001224 

00737 

231* 



N= IBDSTCJ.K) 

GO 1241 

0076 C 

232* 



IF (N .FQ. 0) GO TO 56 

,001243 

00 7 4 2 

233* 



READ llDa,( IBDS(I,J,K),I = 1,N) 

CO 1 24 5 

00 7 5 C 

234* 



DO 55 M=1,N 

001266 

0075 2 

235* 



*1 = If DS 1 M, J,K 1 

OG 1 266 

007 511 

236* 


55 

SOD J F , J , K ) =STS(KI,J,K) 

001 267 
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0075 6 

2 37« 


56 

CONTINUE 

001 304 

0076 1 

230* 



DO 60 J=l,3 

001304 

00764 

239* 



N-I BG 1ST (J) 

001210 

0076 £ 

240* 



IF«N ,E0. 0) GO iTO 60 

001212 

00767 

241* 



READ 11 00, ( IBDIS< I, J ) ,1=1 ,N ) 

001314 

0077 E 

242* 



DO 59 K- 1 * N 

001335 

0100C 

243* 



KlrlBGIS <K, J) 

OD 1 335 

0100 1 

244* 


59 

CISBDIK , J ) =0 . 0 

00 1 336 

01002 

245* 


60 

CONTINUE 

001 342 

01002 

24 6* 

C 



001242 

01002 

247* 

c 



001342 

0100E 

240* 



RE A G 1400, (DT JI » ,1=1, ITGIV) 

001 342 

0101 2 

249* 



DO 92 1= 1 , INTFT 

001356 

01016 

250* 



NI-IMFin 

001356 

01017 

.251* 



00 9 D J- 1 , 3 

001 357 

01022 

252* 


90 

VER(N3,J)=V(J»/FACTV0 

'CO 1 366 

01 J24 

253 + 


92 

VER (N 1 ,4 )=VER(NI,4)/DIFFS<IUNIT> 

001 371 

0 1 02 fc 

254* 



' 00 ICO I=NPPJ,NPPJT 

CO 1 406 

0103 1 

255* 



00 95 J=l,3 

001406 

0103 4 

256 + 


95 

VER (I,J)=VU)/FACTVO 

JO 1406 

0103 6 

257* 


100 

VER (I ,4)=VERCI,4J/0IFFS<IUNIT) 

001 411 

01036 

250* 

c 

44 +***+ 

001411 

0 1 0 3 £ 

259* 

c 



001411 

01036 

260* 

c 

ASSEMBLE AND SOLVE S YS'TEH OF EQUATIONS 

001411 

010 3 6 

261* 

c 

ITERATION WITH TIHE 

001411 

0 1 G 3 6. 

262* 

c 



001411 

0 1 C 3 6 

12 6 3* 

£****#**** 

001411 

0104C 

264* 



PRINT 1500, TIHE 

0014 20 

0104 2 

.26 5* 



DO '120 1=1 * NP S 

00 1 431 

0104 6 

266* 


120 

PRIM 15 20, I,<V£R1I,J>,J=4,IU),PRSII» ' 

001431 

01057 

267* 



PRINT 1550 

GO 1451 

0106 1 

260* 



DO 121 1=1, NPS 

- 00 1461 

01064 

269* 


121 

PRINT 1580, I,i tSTSII,U,KI,K=l, 3), 0=1,31 

001461 

0107 7 

270 + 



PRIM 1585 

00 1504 

0110 1 

2 71* 



DO 122 I =1 , NF ST 

001513 

01104 

272* 



NF=hFS< r 1 

001513 

011(15 

273* 


122 

PRIM 1520,1, <X(NF,J>,J=1, 3) 

001515 

01 1 1 £ 

274* 



PRINT 1582 

001 534 

01117 

275* 



DO 123 1 = 1 , NP ST 

001544 

01 122 

276* 


123 

PRINT 1530, I,KODEm,lX4I,J7,J=l,3) 

00 1 544 

01132 

277* 



PRIM 1612 

001563 

0113 6 

278* 



00 1 24 1 = 1 , NP 5 T 

001 574 

0114 C 

279* 


J24 

PRINT 1520,1, <DISII,J),J='1,3>.<V£R U,JI,J=1,3 > 

001 574 



. CELfE 


CATE 103178 


> 

i 

c\) 

O' 


011511 
Cl 15t 
0 1 1 !> 1 
OH 7 *i 
0117* 
01176 

on7t 

0 1 2 0 C 
0 1 2 C 3 

oipru 

0 U 0 i 

0 1 „■ 1 c 

01213 


280* 
2o 1 * 
2 8 2* 
282* 
284* 
255* 

125 

130 

PRINT 1686 
LO 125 T=1,NPST 

PRINT 1687, I',< ( C 1 1 , J ,H ) , K = 1 ,NCNT 1 , J-l , NC NT 1 

CONTINUE 

ITE fi: ITER* 1 

IF (ITER .GT. I TGI V ) GO TO 8CC 

■ ••• 

• 

■■ - - ■ 


” 001621 

001631 

001631 

00 1 655 

001 655 
001657 

286* 

C 






"" 001657 

2o 7 * 


00 132 I=1,NPST 


' 



001664 

268* 


CO 132 J-l ,3 





001671 

289* • 


CIS II,J>=0.0 





001671 

2?0* 


OISN (I,J 1=0.0 





001671 

291* 

132 

DTSPKVtl ,J)=0.0 





00 1 6 72 

24 2* 


TIHL=TIHE*OT (ITER) 





001700 


_ 012 14 293 * IN NERrQ 

01215 294* 135 INNER-INNER* 1 ~~ 

01216 295* IF _( INNER _«EQ._ 1) DEL T=A*DT ( I TER ) 

0122C 296* IF {INNER . EQ • 2 i"~DEL T“E)T <1 T E rT 

01222 297* , XDL=XDIM<1) 

0122 2 298* DO '130 1=2,3 

.01226 299* _ IF (XDL .GE. XDIHtl)) XDCrXDIMUl 

C.122C 200 * 138 CONTINUE ■ 

01232 301* NST A6=0 

01233 302* 0IKV=TIME*V0 

0123*1 303* DIHL-DIM-XOL 

01236 304* IF jgIMV .GT. DIHLJ NSTABrl 

... U123T 3U5* _ IF ( NASTRM 150 ,150, 140 

012 3 1 20 6*"" C " “ 

0123T :307* , CL00P2 

D123 7 '308* C ' 


001703 
001705 
001707 
DO 1720 
001726 
001733 
001733 
001742 
001742 
00 1 743 
00 1 746 
001751 
001 757 
001757 
001757 
001757 



CfcLfE 
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012 4 2 
0124 2 
012 4 2 

309*' 

310* 

311* 

140 CONTINUE . , . 

CALL CtLTRMlI 
C 

— 

— 

— 

- 

... 


001762 
001762 
00 1762 

U 1 2 4 4 

.212* 

ISO CONTINUE 







001766 

0124 8 

313* 

CALL CELTRNISI 







001766 

U 1 2 4 6 

314* 

00 2CC L L- 1 , I U 







001773 

0 1 2 5 1 

315* 

L-IORDER (LL1 







001773 

1) 1 2 5 2 

316* 

CALL CE L 3C V < L > 







00 1 774 

a 1 2 r « 2 

317* 

200 CONTINUE 







00 2 COO 

U12 6 8 

218* ' 

GO TO (210, 260, 85D», INDEX 







002C0D 

012bt 

219* 

210 CONTINUE 







002C13 

0 1 2 5 ? 

220* 

DO 2 5 C L 1- 1 , 3 







002013 

01262 

221* 

LIE =1 







00 2 Cl 3 

0126 2 

322* 

IF ( I SOT .GE. 0) LIE -L 1 







00 2 Cl 5 

0126 8 

22 3* 

DO 250 L2 -L IE , 3 







C02C22 

01 27 C 

32 4* 

CALL CEL AN I ( I NTF ,1 NTF T , CIN t , L 1 ,L2> 







002C27 

0127 1 

•32 5* 

25 D CONTINUE 







002043 

012 7 4 

326* 

260 CONTINUE 







00 2043 

0127 6 

22 7* 

LEE=3 







002043 

012 7 fc 

22 8 * 

IE (NASTRN .NE. 11 GO TO 270 







Q02C44 

C 1 3 0 C 

229* 

LEE = 1 







002C47 

0130) 

' 330* 

"CALL CEL TRN ( 2 1 







002C51 

01202 

231* 

270 CONTINUE 







Q02C55 

01302 

232* 

DO 3CD K K-l ,LE£ 







002C55 

01306 

333* 

CALL CELDIS(KK) 







002C61 

0120 7 

•334* 

300 CONTINUE 







002C66 

01311 

!33S* 

IF (NASTRN ) 320,500,310 







□0 2 066 

01314 

•336* 

310 CONTINUE 







002071 

01318 

237* 

CALL CELTRN(3> 







002071 

01316 

;33 8 * 

320 CONTINUE 







00 2 C 75 

01317 

■339* 

CALL EXIT 







UQ2C75 

01317 

340* 

C 







002C75 

01317 

341* \ 

C LOOP 1 







002C75 

01217 

342* 

C 







002075 

01317 

•343* 

C RE A C VECTOR IN FROM NASTRAN 







002C75 

01317 

•24 4* 

C 







. 002C75 

01 32 C 

- !34 5* 

400 CONTINUE 







GO 2 377 

0132 1 

246* 

CALL CEL TRN ( 4 ) 







DD2T77 

0122 1 

24 7* 

C 







002C77 

01322 

348* 

SOO CONTINUF 







DP 2 172 
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01323 

34 9* 


IF IINNFR »NE . 11 60 TO 520 

002102 

Q132E 

■350* 


DO '510 I=1,NPST 

002112 

0133C 

251* 


CO 510 J=1,IU 

002112 

01332 

352* 

510 

WERN ll,JJ=WER (I, J) 

00 2 112 

01336 

353* 

520 

CONTINUE 

002121 

0133 7 

'354* 


CALL ME SHOP (NPMT,NEMT,NPELG , NPE , I U ,IOROC, NET, NP ST ,DELT * KODE + 

002121 

01331 

355* 

1 

NOC ,GIS,X,XPRV,VERPRV) 

00 2 1?1 

G134C 

:3S 6 * 


60 TO (525,645,850) , INDEX 

00 2 141 

0134 1 

357* 

525 

CONTINUE 

002152 

0134 2 

358 + 


CALL A LMS< NPHT, NPS, NPP J , NPP 0 T , IN T F , IN TF T , NFRAC,RHOT ,RHOP ,VER,PRS 1 

CO 2 1 52 

013 4 2 

359* 


DO 520 I=i,NFST 

002166 

0134 t' 

360* ‘ 


NF = NFSm 

002176 

0134 7 

261 ♦ 

530 

PR $ < N F ) r 0. 0 

002177 

0135 1 

'362* 


IF ( 1 N, Nfc. 7 . NE • 1) GO TO 533 

002202 

01 35 2 

363* 


DO 53? J=1,NPS 

GO 2210 

01356 

364* 

£32 

PRSN ( J) =PRS ( J > 

002210 

01 36C 

'365* 

533 

C0NT1NUF 

002213 

0136 1 

36 6* 


CALL STRUNG (NPH, STS , YIELD,NF S, INTF.KOOE 1 

002213 

01362 

26 7* 


DO 536 N = 1 ,NPS 

002222 

C 1 3 6 6 

368* 



00 536 1-1,3 

' 002246 

0 1 3 7 C 

369* 


IF USGT .LT. 0) GO TO 535 

QQ 2266 

01372 

270* 


GO 534 J-I ,3 

002276 

013 7 5 

371 * 

534 

STSI N»J,I1-STS(N»I,J> 

002276 

013 7 7 

372* 

535 

STS(N,I»I)-STS(N,I»I1-PRS IN J 

002301 

G 1 4 C C 

27 3* 

536 

CONTINUE 

002207 

0140 2 

374* 


1 F ( 1NNLR ,NE. 1 > 60 TO 540 

' 002337 

014 0E 

■375* 


00 5 38 N - 1 , M P S 

002317 

014 1 C 

' '37 b* 


00 538 1-1,3 

002317 

014 12 

277* 


DO 538 J = l,3 

002 317 

014 16 

3 78 * 

538 

STSMN.I ,J)=STSCN,I,J) 

002 317 

014 2 2 

379 + 

540 

CONTINUE 

00 2 3 32 

0142 2 

360* 

- . . 

CALL FRCRIT (NPHT ,NPM,STS,INTF ,C,CSTF»CSPF ,‘N CN'T.WRC ,NQD FRC , ' 

•“ ' 002332 

01422 

281* 

1 

NFS ,EF ,PNF,CKF , MODE 1 

00 2 3 22 

0142 4 

*3b2* 


IF f INNER .NE. 11 60 TO 615 

002352 

014 2 6 

36 5* 


00 6 10 ■! - 1 , NP ST 

002363 

014 3 1 

384* 


DO 6 1 E J=1 ,3 

002363 

01434 

385* 


0ISN(1,JJ-0IS(I,J> 

002363 

014 3 6 

•386* 

610' 

XN( I, J»rxi I, J) 

002364' 

0144 C 

!38 7 * 

615 

CQNTiNUF 

002374 

0144 1 

38 8 * 


CALL' CEL3JU«NPHT,VERPRV, VERN , VER , F JPR V , F J ,K OD E J 

002374 

0 1 <! 4 4 

289* 


IF ( INNER .NE. 1) GO TO 645 

002404 

C 1 4 4 4 

•390* 


CO 642 1=1, NPS 

002414 

01447 

351* 

642 

FJN ( 1 > = FJ( I 1 

002414 

014 6 1 

392* 

645 

CONTINUE 

002417 

014* 2 

293* 


IF ( INNER , EQ . 2) GO TO 700 

' 002417 

u 1 4 5 *< 

394* 


GO TO 135 

002421 

01445 

39 0* 

70Q 

continue 

002423 

0145 6 

39 6 + 


IF (INDEX ,GT. 1) GO TO 701 

002423 

111 46 C 

397* 


CALL SLTEST 

002426 

C 1 4 6 1 

•39 8* 


IF (IN'OCX ,E0. 31 GO TO 820 

GO 2 4 30 

r. I4t i 

■349 + 

C 


00 2 4 30 

r,i4t 3 

AuO* 

701 

CONTINUE 

GO 2 4 34 

C 1 4 6 4 

4lj 1 * 


CO 7 C 5 in , NP ST. 

U02434 

0146 7 

*62* 


00 7C5 J=1 , IU 

0 3 2 44 5* 

01472 

403 + 

70S 

VERPRVd ,J)=VER C 1«J 1 

002445 

01476 

'404* " 


00 7 C 8 T -1 , NPS 

002457 



CEL FE _ ' DAJE 1QJ178 


0 1 50 C 

40541 

FJPRV.IIl=F*jm 


002457 

01501 

406* 

PRSPRVm = PRS(I» 


002460 

015 0 2 

407* 

oo 7ce j=i,3 


002465 

01505 

408# 

DO 708 K =1 , 3 


002465 

o 1 5 1 r. 

409* 

70B STSPRV(I,J,Kl=STS(i,J,Kl 


002465 

01514 

410* 

DO 710 T=1,NPST 


002504 

01511 

„ . 1 U*._. 

00 710 0=1.3 


002504 

015 7 2 

412* 

XPR VII,*I) = X(I,J) 


002504 

015? 1 

413* 

OISPRVII ,J)=DIS<I,J> 


002505 

01524 

414* 

710 CONTINUE 


002514 

01521 

41 5* 

IFI IUNIT .EO. 1) GO TO 720 


002514 

0153 1 

416* 

00 715 I=1.,NPST 


00 2 51 7 

01534 

417* , 

00 712 *1 = 1 ,3 


CO 2 526 

0153 1 

■418# 

712 VER tl,J)=iaaOOOO.O*VERPRVIl,Jl/VERPRWri,5 1 


002526 

015 4 1 

419* 

VER (I ,4 1 =V£RPRV ( 1,4 I/O IFF Sll UNIT! 


CO 2 5 32 

0154 1 

420# 

715 CONTINUE 


'TJQ2543 

015 4 4 

421* 

720 CONTINUE 


002543 

01545 

422* 

PRINT 1500, TINE 


002543 

w 1 5 5 C 

423* .. 

. 00 725 1 = 1 . NP S 


002564 

01553 

424* 

725 PRINT 1520, I , < VERCI,J1,J=4,IU1,PRSU) 


UD 2 564 

Q 1 5 6 4 

425* 

PRINT 1550 


OD 2 634 

015 0 6 

42 6* 

DO 730 1=1 , NPS 


002614 

0157 1 

427* 

730 PRINT 1580, I , M STS ( I , J ,K 1 , K =1 ,3 1 , J=1 , 3 ) 


002614 

0 1 1/ 0 4 

428* 

PRINT 1585 


002637 

01006 

M2 9 * 

DO 731 1=1 ,NFST 


002646 

oioii 

430# 

N F = N F S ( I 1 


002646 

016 1 2 

431* 

731 PRINT 1520,1 , IX CNF , J» ,*) = 1 , 3) 


00 2 650 

01622 

432* 

PRINT 1582 


002667 

01624 

433* 

DO 7 32 1=1 ,NPST 


002677 

0162 7 

434* 

732 PRINT 1530 , I , K ODE < 1 1 , < X 1 1 , J 1 , J= 1 , 3 1 


002677 

0164 C 

1435* 

PRINT 1612 


002716 

0164 2 

.436* 

DO 733 1=1 , NPET 


DO 2 727 

0164 5 

437* 

733 PRINT 1520, 1 , < OIS ( I , J» , J=1 , 3 1 , 1 VER (X ,J ) , J= 1 , 3 1 ‘ 


DO 2 727 

01661 

438* 

IF ( NFRAC .EO. 0) GO TO 739 


002754 

016 0 3 

439* 

PRINT 1662 


002756 

0166 5 

440* 

DO 735 I = 1 , NFPAC 


002762 

0 1 6 7 C 

441* 

735 PRINT 1683, I,N0DFRCU1 


002767 

0 J 6 7 5 

442* 

PRINT 1686 


QO 2 7 7 7 

016 7 1 

‘43* 

DO 728 I = 1 , NPST 


00 3C07 

01702 

.444* 

738 PRINT 1687 , I>, < » C 11 , J ,K ) , K = 1 , NCNT i , *1=1 , NC NT 1 


003007 

01715 

445* 

739 CONTINUE 


003033 

01715 

44 6* 

C 


003C33 

01716 

447* 

GO TO 130 


003033 

017 11 

4 4 8* 

800 PRINT 1720 


DO 3 C 34 

0172 1 

.44 9* 

ICOND=Q 


003037 

01722 

450* 

PUNCH 1100, I ORD C, I ORDL, NF ST, INTF.T.ISOT.I SOP, IUNIT, ITGIV,ICOND 


00 3040 

U 1 7 2 2 

451* 

1 ,ITER,NSLI0E 


00 3 E 40 

01731 

1452* 

PUNCH 1400, A, ALPHA, TIME 


003057 

01744 

.45 3* 

PUNCH 1400, 1 V < I 1,1=1,31 ,DIMX,OIMY,DIHZ 


00 3066 

01752 

454* 

PUNCH 1400, RHOT ,RHOP,TMIU,PMIU,TYLD,PYLD ,S MI U 


UO 3101 

01763 

455* 

PUNCH UCO, NPS,N£T»NPPJ»NEP*J*NPPJT,NEPJT»NPTR,NETR,NPLG,N£LG, 


003114 

0176 3 

456* 

1 NPST,NELT,MAXDOF, NGD 


003114 

0 2 003 

457* 

PUNCH 1100 , t IB DVT <1 ), 1 = 1, IU>,HI80ST(T,J>, *1=1 ,3 >,1 = 1,31, 


DO 3 136 

C 2 00 3 

.458* 

1 I X El C 1 ST m ,1 = 1,31 


DO 3 1 36 

C 2 0 1 6 

459* 

DO 801 N=1,NCT 


003223 

0202 1 

460* 

"801 PUNCH 1100, (NOUN, 11, I = 1,NPE 1 


003223 
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0203C 

461* 


NN=NfcT*l 

003236 

0203 1 

1462* 


DO 802 N=NN,NELT 

003241 

02034 

•463* 

802 

PUNCH 1100, (NOO(N,I> ,I=1,NPEL6) 

003250 

0204 2 

464* 


DO 8C3 N=1,NPST 

003267 

02 oq c 

•46 5* 

' 803 

PUN Ch '14 20, N,MODE(N> ,mN,I > ,1 = 1 ,3) 

003267 

0205 1 

•4 66* 


PUNCH 1100, lNFSm,iri,NFST» 

CD 3 306 

0206 5 

.467* 


PUNCH 11C10, C INTF(I) ,I = 1,INTFT) 

. 003317 

0207 2 

468* 


DO 6C5 J=1,IU 

003333 

02076 

'.4 6 9 + 

BOS 

PUNCH 220 0 , (VERPRV1I , J),I = 1 ,NPSTJ 

003333 

0210 E 

.470* 


DO 8C8 J=1 , 3 

003351 

GY 1 1 C 

471* 


LIE = 1 

00 3 351 

02111 

472* 


IF ( ISOT ,6E. 0> LIE = I 

003753 

02112 

473* 


00 8E8 K =L IE , 3 

DO 3 257 

0211 fc 

474* ‘ 

808 

PUNCH 22 00, (STStI*J,K>, 1 = 1, NPS) 

003373 

0212 6 

475* 


DO 6 1 C J = 1 , 3 

003413 

02131 

476* 

810 

PUN Ch 2200, t 0 IS < I , J > t I = l,NPST) 

003413 

02 1 q c 

477* 


PUNCh 22C0, CPRSI I) ,1=1, NPS) 

003426 

02 iq t 

478* 


PUNCh 2200, <FJ(I), 1=1, NPS) 

CO 3437 

02154 

479* 


DO 811 J=1 , 3 

003453 

0215 7 

480* 

811 

PUNCH 22D0,t8FS(I,O>,I=l,NPST) 

DO 3 4 53 

02166 

481* 


PUNCH 2200, (YIELD!!), 1 = 1, NPST) 

00 3466 

l) 2 1 7 q 

•482* 


PUNCH 2200, ( CCSTF(I»J),J=1,HCNT),I=1,NCNT) 

003477 

02206 

463 * 


PUNCH. 2200, ( <CSPF<I,J>,J=1,NCNT>,I=1,NCNT> 

003515 

0221 6 

4 64 * 


DO 818 J = 1 , NC NT 

GO 3 5 37 

0222 1 

485* 


DO 818 K =1 ,NCNT 

003537 

0222 q 

4b6* 

sTe 

PUNCh 2200 , ( C ( I , J,K ) ,1 = 1 ,NPST ) 

'' 00 3E37 

02274 

487* 


GO TO 650 

00355b 

022 i i 

4 6 8 * 

820 

PRINT 1 7 CO 

G03E60 

0223 7 

489* 

850 

GO TO 1 

100 3 564 

0^23 7 

490* 

C 


003564 

0223 7 

•4 91 * 

C 


003564 

f J 2 2 q C 

492* 

' ' 1C00 

FOR HAT I 12 A6 1 ' '/ " ~ 

GO 3 565 

02 2 q 1 

493* 

1001 

FORMAT ( 1H1, 1 2 A 6 / ) 

003565 

022 q 2 

494* 

1C02 

FORMAT 112) 

003565 

o?2q i 

4V 5 * 

1 100 

FORMAT 120141 

003565 

c ?2 q q 

496* 

1105 

FORMAT (4 18 ) 

003565 

0224 6 

497* 

1200 

FORMAT t 8 El 0 • 4 > 

003565 

0224 6 

498* 

125 0 

FORMAT »//6X, ’NHBW =’,I4//) 

' “ ' bo 3 565 

0224 7 

499* 

1255 

FORMAT { / /6 X , • NHB MS =*,14// 1 

003565 

02256 

500* 

1300 

FORMAT (215) 

do 3 56 5 

0225 1 

fill* 

1400 

FORMAT (8F10.4) 

00 3565 

02 2 ‘ 2 

502* 

1420 

FORMAT (’GRID »,2I8,3F8.3) 

00 3 565 

02 2 c 2 

503* 

C 


00 3 565 

0225 • 

504* 

1500 

FORMAT ( 1H1 ,2X, •TIHE= ’,E11»4/1H0,6X,*N0DE’ *5 X , ’ENERGY* ,9X , 

003565 

0225 3 

505* 

•1 'DENSITY ’,7X, ’PRESSURE ’ / ) 

003565 

0225 4 

51)6* 

1520 

FORMAT ( Ilu,lP6E15.4) 

003565 

02256 

.507* 

1530 

F0RMAT(2I10,1P6E15.4 ) 

003565 

022 5 6 

508* 

1 55 G 

FORMAT ( 1HG,2X,’N00E’,6X,’S11’,10X,’S12’,10X, ’S 13 • , 10 X , *52 1 • , 10X 

' 003565 

0225 6 

509* 


1 *S22’,10X,’S23'*10X, , S31’»10X,*S32* ,10X,»S3 3*/) 

003565 

0225 7 

510* 

1 580 

FORMAT < 16 , 1P9E 1 3 .4 ) 

003565 

0226 C 

511* 

1582 

F OR K AT <1 HD,2X, ’COORDINATES’/ 1H0,6X, ’NODE* ,6 X , ’K OD E * , 1 OX , »X • , 12X , 

003565 

022 6 C 

512* 


1 *Y* ,12X, ’2’/) 

003565 

0226 1 

513* 

1S85 

F OR M A T ( 1 hO ,2X,’H£SH OF FREE SL'RFACE’/lHO, 6X ,’NOOE *,7X » ’ X * , 12X, 

003565 

0226 1 

514* 


l’Y*,12X, ’? */) 

003 565 

0226 2 

515* 

1600 

FORMAT (3314) 

003565 

02262 

516* 

1612 

FORMA T ( 1 hO ,2X , ’DISPLACEMENT AND VELOCITY*/ 

’ 003565 
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022 h 1 512* 1 lHGtfcX x *N00E > «8X. t UX*«llX. *UY* »11X.*UZ*. 1 1 X « »V X • .1 IX . * V V . 1 IX . 00 3 565 

C226 2 518* 2 »V2'7) 003565 

.0226 1 519* . . Cl . . _ 003565 

02268 52 0* 1682 FORHAT (1HQ,8X, •FAILURE MODE •/ > G03565 

02265 621* . 1683 FPRMAT(2I2GI . . . 003565 

0226 5 (52 2 + 1688 FOR H A T < 1 hQ , 2 X ,30HP0I S SON RATIO /) 003565 

C226 1 623* 1685 F OR M A T (1 HO , 2X'! 30HF.R AC TURE _CR I T ER ION . COEFFIC IE NT_/>. 003565 

0227 C ' 526* 1686 FO R M A T ( 1 HO , 2 X , 30HS T I F F NE S S COEFFICIENTS ’ /> 003565 

C2 2 7 1 525* 1687 FOR 8 A T ( I 10 , IP 12E 1 0 .8 / 1 OX , 1 P 1 2 El 0 . 6/1 0 X , 1P12 El 0. 8 > .... 003565 

02271 526* ' C 003565 

02271 £27* 1700 FORHAT (‘OSTATIC SOLUTION ATTAINED*) _ , _ CQ3565 

0227 2 528* • 1720 FORHAT (*0FAIL TO SATISFY PRESCRIBED CRITERION FOR ATTAINING' ~ 003565 

0227 5 52 R*... . 1 ST A T 1 C , S OLUT 1 ON • ) . .... 003565 

0227: ' 530* ’ C “ ~~ 00 3 565 

022 7 8 ,531 * 2200 FORHAT (1P6E10.8) ... 003565 

02275 532* 2000 STOP 003565 

0227 6 -533* END . 003570 


END 0F“C0HP1L AT ION S NO "iil AGNOSTICS 


d H EM-' ,P 
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CELFEP » CE L FEP 


RI 


aPOP ,LUF 

PORI :Rl" H.72-16 10/31/78 20:S6':37 (0,0) 

0OC1 C 

OOC2 C ” " ‘ 

PrOOC3 PARAH3 PROC 

00 C8 C 

OOCS __ PARAMETER NPMT - 76,NEMT_= 33,NP_Mr 76,NEH= 33 

C10C6 ’ PARAMETER’ NPEL 6= 8 ,NPE=" 8 

00 C7 PARArtETFR KDFRS:£3,KDINT:10 

once c 

00C9 PARAMETER NRMAX=2000, NCMAX=2 

onin parameter ngplo=;2,ngp=2 

CiDll PARAMETER NCIJT^O, NrRC=NPM 

001? PARAMETER 1U=S,N0PJT= 10,NTST£P=200 

00 33 PARAMETER Np.vr NP M , NHS ~NPH , NBD=NPH 

00 18 END 

Pf. 00 15 PARAM2 PROC 

0016 PARAMETER NPMT: 76,NEMT= 33»NPH= 7b,NEM: 

0017 PARAMfTER NPELb- 8.,NPF = 8 

"oois PARAMETER NDFRS=S3,N0INT=1U 

00 19 C 

0010 C THE PARAMETERS ARE SAME AS THOSE FIRST THREE CAROS IN P AH AH 1 

00 21 C 


33 


7022 
Pi 00 23 
00 28 
0025 
00 26 
00 2.7 
0028 
00 29 
00 20 
00 21 
or 22 

00 23 
CO 28 
ClO 28 
00 26 
on 27 
00 28 
CO 29 

on 80 

D0A1 
or. 8 ? 
UO m3 
00 89 

lie 8 5 
Q.7 86 
00 87 
1,0 88 
CO 89 
.IP n 

coil 

00 i? 
00 £3 
UO 5:8 


END 

CELFE1 PROC 

DIMENSION T IT L £ ( 1 2 I 

DIMENSION PRS(NPH),FJ(NPM) 

DIMENSION CKF (NFRC,3)»EF(NFRC,3,J> ,PNF (NFRC,3,3 > 

DIMENSION lORDER(IU) 

C 

COMMON / S YSMTX / S(NRMAX,NCMAX ),NSTAP 

COMMON /DATAX/ RHOT ,RHOP , V ( 3 ) , T Yl D , P YLO , I CO ND 

COMMON / C FL 7 1 / 1 OROC , A , A LPH A , NE T , N P S ,NH B W ,NB W ,N PP J , NE P J ,1 NN ER , 

1 . ITER ,OELT ,NF ST 

COMMON /C EL 2 3/ XPRV (NPMT , 3 > » VE RPR V ( NP K T , I U ) 

COMMON / ORT HPC / SIT (3,3) ,SLC(3, 3) ,LI (3,3) ,E (3,3 ),PNIU(3 ,3),CK (3) 
COMMON /M A T PL / N F R A C , T HI U . P M 1 U , I SO T , ISO P 

COMMON /NCASE/ INDEX, NASTRN.NSLIuE " 

COMMON /UNiTCV/ IUNII ,FACTL ( 2) ,FAC 1 V (2) .FACTR (2 ), FAOTE( 2) , 

1 FACTS (2 I »D IFF S ( 2 ) 

COMMON /GE0M1 / KODE (NPMTl ,NOO(NEMT , NPELG) 

COMMON / I HP C T 1 / XN( NPMT ,3 ) , V£RMNPMT,IU > ,FJN(NPH) ,F JPRW (NPM ), 

1C (NPMT ,N C NT ,NCNT ) 

'COMMON / 1 HP CT 3 / 0M(NPE,3),FJCB(NPE),CFRC(NPELG,NCNT,NCNT) 

COMMON / I MPCT 8 / CSTF (NCNT ,NCNT ) ,CSPF (NCNT ,NCNT> , 

1CINT CNUINT , NCNT , NCNT) 

COMMON /ELMLAG/ CD ( NPELG , NPELG ) , C S ( ("PEL G , NPEl G ) ,CL ( NPEL G ) , 

1SF INPrLG ) ,M (3 , NPELG ) ,DF ( 3, NPELG) ,PM ( NPELG > , EL X Y 2 ( NP EcG , 3 ) , 

2VL (NPEL C flL > . , . 

' COMMON /PARCOr/ MAXDOF » NO D 

COJ MON /LAGRCN/ NPST,NELT,IORDL,NBUT,NHBWT 
COMMON /NCLEPJ/ NfPJf.NPPJT ,1NTFT 
COMMON /SR FACE/ NFS(NOFRS),INTF( NuINT) 

COMMON / C EL 22 / NPTP ,NE TR, NRLO.NELG ,D1MX ,DIMY,ni M2 
COMMON /TSrfp/ ITCIV ,TIHE,UT(NTSTEP) 

COMMON / S OK FCF / SMIU.D1FF .CONST 1 , VM A X , VMI N, XO 1MI 3 ) 
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> 

i 

w 

Oo 


OQ.ES. 

on se> 
DO £7 
DO £8 
00 £9 
OQ tO 
OOll 
oot? 
□ 0 1 3 
DCt4 
■ 00fc5 
ont6 
OC £7 
0 0 c fi 
C0t9 
02 10 
PL 00 11 
DO 12 
no 13 
DO 18 
0018 
00 16 
an 17 
u r l 18 
0 019 
ooto 


CO_MHJN_ /MATRL 2./. YIELD ( NP HT ) .NO CF RC (NFRC ) 

COMMON /PRO JMT / PSLTI 3 ,3) ,P SLcYY, 3 ) ,PE« 3, 3) ,PPN IU (3 ,3 > ,PCK I 3) 
COUPON /STRESS/ STS N I NPM T 3 , 3 ) , ST SP R V (NPH , 3 f 3 ) 

' COMMON /DISPLC/ D I SN ( NPMT , 3 > , DISPR V < NPM T , 31 , X « N PHT, 3)',BFS I NPM T »3 ) 

COMMON /STSELM/ STL(NPE,3,3) 

COMMON /DISELM/ DHNPELG,3) ,bF(NP£LC ,3) 

COMMON /IMPCT2/ PRSN(NPM) ,PRSPRV(NPM( __ __ ___ " 

COMMON /SCLCNV/ VER t NPHT » I U I ’ 

__ COMMON /SCLSTR/ STSINPM,3,3) 

COMMON /SOLDIS/ D I S (NPMT , 3 ) 

COMMON /BUYER/ ItJOVT ( IU> , IbDV (NBV, 10) , VBO(NBV,Ill) 

COMMON /BCSTR/ IBDST ( 3 ,3) , IBDS (NBS , 3 ,3) ,SBD (NBS ,3 ,3 ) 

COMMON /BCCIS/ IBOIST( 3 > , I6DI S (NbD , 3 ), OISBD (NBD ,3_> 

" COMMON /DATE/ ID A T £ ( 3 > 

EQUIVALENCE LStl),EF(l)» 

END 

CONSRV PftOC 

COMMON /SYSMTX/ S t N R M A X , NC M AX ) , N S T A P 

COMMON /CEL 21 / I ORU C , A , A L PK A , NET , N P S ,NHB W ,NBW ,N PP J, NEPJ , INN ER , 

" “ 1 ITER , DELI , NEST' 

COMMON / C E L 2 3 / XPRV (NPHT, 3 > » VERPR V ( NPM T , IU > 

COMMON /ORTPPC/ SLT (3,3) , S L C ( 3 , 3 ) ,LI (3,3) ,E(3,3 7, PNIIM3 , 3 ) , CK (3) 
COMMON /MATRL/ N F R A C , T MI U , P MI U , I S 0 T , I SO P 
COMMON. /NCASE/ INDEX, NASTRN»N SLIDE 

COMMON /UMTCV/ IUN1T.FACTL (2 ) ,FACTV 12 I ,FACTR (2 », FACTEL2) , 

1 FACTS (21 .FACTOR (2) 


one]' COMMON /G E 0 M 1 / KOOt ( NPMT) , NOD ( NE MT , NPEL 6 1 

DO L2 COMMON /IMPCT1/ X N ( NPMT , 3 1 , VE RN ( NP HT , IU ) , FJN ( NP Ml ,F JP RV (NPM I , 

00t3 1C(NPMT »NCM ,NCNT) 

02£4 COMMON /IMPCT3/ 0 M ( NPE , 3 > , F J CB ( NP E ) , CFR C C NP E L G , NC NT ,N CN T 1 

0Gc5 _ COMMON /£ LHLAG/ CD ( KPE LG , NP.EL G ) , C S ( N PE L G , NPELG 1 ,CL I NP EL G > , 

0rb6 ■ " 1SF (NPELG) (3, NPELG), DF(3, NPELG), PM(NPELG),ELXYZ(NP EL 6,3), 

Q0E7 2VL (NPELG, IU > 

DQfcfl COMMON /PAROOF/ MAXOOF ,NGD 

UU9 COMMON /STRESS/ ST S N ( NPM , 3 , 3 ) , ST SP R V (NPM , 3 , 3 ) 

OCSD COMMON /STSELM/ STL(NP£,3,3) 

C(1 8 1 COMMON / 0 I S PC C / 0ISN1NPMT ,3 ) , 0 1 SP R V (NPMT , 3 ) , X (NPMT, 3) >BFS (NPMT ,3) 

C0S2 ' COMMON /DISELM/ 0 L ( NPE L G , 3 ) , ti F ( NPE L G , 3 ) 

DO S3 COMMON /SOLCNV/ VER(NPHT,IU) 

OOSM COMMON /B EVER/ I a DV T ( I U ) , I BD V ( NB V , I U ) , V BD ( NB V , I U> 

DOSS END 

PE GO S6 CONS T V PROC 

D0S7 COMMON /SYSMTX/ S ( NRM AX f NCM AX ) ,N S T AP 

G0S8 COMMON / C E L 2 1 / X OR D C , A , ALPH A , NE T , N P S , NH B W ,N B W , N PP j‘, NE P j",‘l NN ER i 

OOS9 1 ITER , DECT, NFST 

0 1 CD ' ‘ COMMON /C E L 23 / XPRV ( NPHT , 3 ) , VERPR V ( NPM T , IU ) 

Old COMMON /ORTHPC/ SLT ( 3 , 3 ) , S LC ( 3 , 3 > , L I ( •* , 3 ) ,E C 3 , 3 ), PN IU (3 ,3 ) , CK ( 3 ) 

01CZ COMMON /MATRL/ N FRA C , T MI U , PHI U , I SO T , ISO P 

0 1 C 3 ‘ COMMON /NCASE/ I NDE X , N AST RN , NSLI DE 

01C4 COMMON / G E 0M1 / H ODE < NPMT ), NOQ.I NE M T , NPEL G >' """ 

01C5 COMMON /IMPCT1/ X N ( NP MT , 3 ) , VE RN ( NP M T , I U ) , F JN ( NP M ) ,F JP R V (NPM ) i 

01C6 1C(NPMT ,NC N T , NCNT ) 

01C7 COMMON /IMPCT3/ OM ( NPE , 3 > , F JCB ( NPE ) , CFR C ( NPELG , NC NT ,N CN T ) 

OICa " COMMON /ELMLAG/ CO ( NPE LG ,N PEL G ) , C S ( NPEt G , NPELG ) ,C L ( NP EL G > , 

. 01C9 1SF (NPELG ) ,W (3 ,NPEL6 ) ,0F ( 3, NPEL6) ,PM (NPELG ) ,EL XY 2( NPELG, 3 ) , 

o)in ' “ " 2VL (NPE LG, lb ) 



ORSGiPIAL PAGE is 
of poor quality 


celfep 


DATE 103178 


> 

i 

Co 


qi n 
01 12 
01 13 
01 19 
01 15 
01 16 
01 17 
PE 0 1 Ifl 
01 19 
0110 
(2121 
01 22 
01 23 
01 29 
01 25 
01 26 
0127 
01 2B 
01 29 
01 20 
01 21 
0122 
Cl 23 
01 29 
01 25 
01 26 
01 27 
01 2(1 
Pt 01 29 
01 90 
0191 

0 1 9 ? 

01 93 

0 1 99 

01 96 
01 96 
0197 
0199 

pro i 99 
0 1 1 0 
31 51 
012 2 
012 3 
01 19 
01 55 
0156 
01 57 
01 58 
01 59 
Cll£0 
Ql £1 
01 £2 
01 £3 
01 £9 

0 1 £ 5 

01 £6 


COMMON /PARDOF/ HAXDOF.NGO _ _ 

“ COMMON /STRESS/ S T S N IN PH f 3 » 3 V, S T S P~ff V (NP H , 3 »3"f 
COMMON /STSELM/ STL(NPE,3,31 
COMMON /IHPCT2/ PRSN ( NPM I , PR SPR V £ N P M ) 

COMMON /SOCSTR/ STSINPM,3,31 

COMMON /BCSTR/ IBDST ( 3 , 3) , I BD S ( NB S , 3 , 3 » ,SBD I N8S ,3 ,3 > 

END _ _ 

01SPLV PROC 

COMMON / S V S MT X / S ( NRM A X , NCH AX ) , NST AB 

COMMON / C CL 2 1 / I ORDC , A , ALPH A , NE T , N P S ,NRBW ,NB U ,N PP J, NE P J ,1 NN ER * 

1 ITER ,DELT ,NFST 

COMMON / C EL 2 3/ XPRV (NPMT , 3 » , VE RPR V ( NPM T , II) » 

COMMON / 0 RT HP C / Sm3,3>,SLC<3»3),LIl3,3>,EI3,3>,PNIUI3,3»,CK(31_ 
COMMON /HATRL/' NFRAC,TMIU,PMIU,ISOT,ISOP“ 

COMMON /NCASE/ 1N0E X , NAST RN , NSL 10 E 
COhMON / G f OM 1 / K ODE I NPMT ) , NOM NE MT , NPEL G ) 

CQHMUN / I MP CT 1 / X N < NPMT , 3 ) , VE RN I NP H T ,1 U > , F ON ( NP M> ,F JPRV (NPM > , 

1C ( NPMT ,NCM ,NCNT 1 

COMMON /IMPCT3/ „M< NPE ,3) .FJCB INPF 1 ,CFRC (NPELG, NCNT ,NCNT> _ 

COMMON /ELMLAB/ CO ( NPE LG , NPE LG I , C S ( N PEL G , NPE L 6 ) ,CL « NP FL G 1 , 

1SF (NPE LG i , w I3,NPEL61,DF(3, NPELbl , P M < NPE L G > , EL X Y 2 ( NP EL G ,3 ) , 

2VL (NPE LG ,IC 1 

COMMON /PARDOF/ HAXOQF,NuO 

COMMON /OISPLC/ DISN(NPMT, 3) ,DISPRV(NPHT , 3) ,X (NPMT, 31 ,8FS (NPMT, 3 1 
COMMON /DISELM/ 0L(NPELG,3) ,t)F(NPELF. *3) 

COMMON / S CL Cl S / DIS (NPMT , 3 1 

COMMON /BCE IS/ IBDIST (31 ,IB0IS(N6D»3)*DISBD(NBD»3 ) 

END 

GENMSH PPOC 

COMMON /SR FACE/ NFS ( NDFRS ) , INTF (NOINT 1 
COMMON /GE0M1 / KOOE (NPMT) , NOD ( NEMT , NPELG ) 

COMMON / C EC2 1 / UR&C, A, ALPHA, NET, NPS,NH8W,NBW,NPPJ,NEPJ, INNER," 

1 ITER ,DELT ,NFST 

COMMON /LAGRGN/ NP S T , NE L T , I ORDL , NB U T ,NHB NT 
COMMON /CEL22/ NPTH.Nf TR , NPL 0 , NEL G , 0 IM X , D IM Y , 01 M2 
COMMON /NOLEPJ/ NEPJT ,NPPJT *INTF T 
DIMENSION X (NPMT , 3 ) ,G ( 16 > 

enV ‘ 

TE S TNG PROC 

PARAMETER NCIMZNCM 
DIMENSION NDEG(32),INTELM(NDIMI 
C 

COHMON /C EL 2 1 / I ORDC , A , ALPH A , NE T , N P S ,NHB U ,NB U ,N PP J, NEPJ ,1 NN ER , ___ 

1 ITER .DELT.NFST " _ 

COMMON / C EL 23/ XPR V ( NPMT , 3 1 , VERPR V ( NPM T , III > 

COHMON /HATRL/ NFR AC , T MTU , PHI U , I SO T , ISOP 
COMMON /NCASE/ INDCX,NASTRN,NSLIDE 
COMMON / 0 E0M1 / HOOE (NPMT) , N OD ( NEH T ,NPEL G 1 
COMMON /LACRGN/ NPS T , NELT » I ORDL ,NB VT ,NH8 VT 

COMMON /NODEPJ/ NEPJT, NPPJT,INTFT 

COMMON/SRFACE/ NFS(NDFRS1 ,INTF (NOINT) 

COhMON / S UR FCF / SMIU,D1FFPR,V0,VMAXPR,VHINPR,XDIM (3 > 

COMMON /STHESS/ ST SN ( NPM , 3 , 3 1 , ST SP R V (NP M , 3 , 3 ) 

COMMON /DISPLC/ 0ISMNPMT,3),DISPRV(NPHT,3»,X(NPMT,3> ,BFS(NPMT,3) 
COMMON /IMPCT1 / XN( NPM 1,31 , VE RN ( NP MT , I U 1 ,FJN(NPM) ,F JPRV (NPM 1 , 
1 C(NPMT,NCNT,NCNT) ... 



CELFEP 


date 103*78 


i 

oo 

in 


Q J 6 7 COMMON /IHPCT2/ PRSN1 NPM ) .PRSPRVINPH t 

0168 COMMON /SOLCNV/ V ER <NP HT , III > 

0169 COMMON. /SOLSTR/ STSfNPH,3 t 3> 

QUO ' COMMON /SOLDIS/ DIS<NPMT,3) 

0111 . . COMMON /BOVER/ 1 60 V T ( I U I , IB D V t NB V , III > , VBD <NB V ,1 U 1 _ . . 

0112 ’ COMMON /6CSTR/ I BO S T< 3 , 3 ) , I BOS l NB S , 3 , 3 > , S BO « NBS *3 ,3 > 

0 113 COMMON /8DCIS/ I B 0 1 ST ( 3 ) , T B 01 S < NBO , 3 ), 0 I S8D I N.BQjISJ 

0174 ' COMMON /MATRL2/ Y IE LO ( NP HT ) , NOOFR c‘< NFRC 1 

0175 END 

PEJ176 CELSTR PROC 

0177 PARAMETER NWK-2Q0Q»NTRL-7 _ 

0178 DIMENSION WORK (N wK > ,P 3 12 I , 1 T RL ( NTRL ) 

0179 COMMON / S Y S NT X / S < NRM A X , NC M A X > , N S T AP 

OlfcO’ ‘ COMMON /DATAX/ R HO T ,RHOP , V < 3 1 , T YLD , P YLO , 1 COND ‘ 

0181 COMMON /C ELZ1 / IORDC , A , ALPH A ,N£ T , N P S ,NH6 W ,N8W ,N PP J, NEP J .INNER . 

01C2 1 ITER , DECT, NFST 

01t3 COMMON / C E l ? 3 / X PR V (NPMT , 3 ) , VE RP R V t NPM T , IU > 

U1C4 COMMON / 0 R I HP C / S L T ( 3 , 3 ) , S L C 1 3 , 3 ) , L T < 3 » 3 ) , E ( 3 , 3 > , PN IU « 3 ,3 ) , CK ( 3 > ' 

01t5 COMMON /MATRl/ N fR A C , T MI U , P MI U , I SO T ,.l SOP . 

0186 COMMON /NCASE/ I NOE X , N A S T R N » NSL I 0 E 

0187 _ COMMON ,/UMTCV/ IUN IT , F A C T L < 2 ) , F A C T V I 2 > , F AC TR ( 2 > , FA CT E l 2 ) , 

0188 ’ 1 FACTS ( 2 > , E I F F S ( 2 1 

0189 COMHON /CEGM1/ KODE ( N PMT ) , N OD ( NE M T , N PEL G ) 

OHO COMHON /I MPCT 1 / X N I NPMT , 3 ) , V ERN ( NP H T , IU > , F JN ( NP H) ,F JP R V t NPM I , 

0151 ICtNPHT , NCNT , NCNT ) 

01 S2 "" COMHON / 1 M PCT 3 / OM I NPE , 3 > , F JCB < NPE 1 t CFR C ( NPE L NC NT ,‘nCNT") 

0153 COMMON /IMPCT4/ CST F < NCNT , NCNT » ,C SPF (NCN T ,NCNT ) , 

0159 1CINHNDINT, NCNT, NCNT) 

0155 COMMON / E LM L A 6 / CD ( NPELG , NF ELC ) , C S ( NPEL G , NPELG > ,CL < NP EL G ) , 

0156 ISF(NPELG) ,w(3,NPCLG)*DFI3, NPEL 6 I ,PM ( NPELG > ,ELXYZ(NPELG,3l, 

0157 _ 2VL INPELG, IU1 

D15R ■ COMMON /PAfiCOF/ MAXDOF ,N6D 

0159 COMMON /CELZ2/ NP TR ,NE TR , NPL & , NEL 6 , C IMX ,0 IH Y , DI HZ 

G?cn COMMON /LAGRCN/' NP 6 T , N ELT , I OROL , N B h T ,NH 6 U T ‘ 

172 C 1 COMMON /PROJHT/ PS L T ( 3 , 3 ) , PSLC < 3 , 3 ) , PE < 3 , 3 ) , PPN IU (3 .3 ) , PCK < 31 

0?C2 COMMON /NOCEPJ/ NEP JT , NPP JT „ I N TF T 

0 ? C 3 - COMHON /SURFCE/ S H IU , 0 1 FF , C ONST 1 , V H A X , V MI N , XD IM 1 3 1 

U2C4 _ ' ‘ “ COMMON /TSTEP/ I T G I V , T 1 HE , 0 T I N T S 7 E P > 

0? C5 COMMON/SHF ACE/ N F S ( ND FR S ) , I N TF < NO ! N T ) 

C.2C6 COMMON / M A TRL 2 / Y IE LO ( NPMT ) , NODFR C ( NFRC ) 

02C7 COMMON /STRESS/ ST S N ( NPM , 3 , 3 ) , ST SP R V (NPM , 3 , 3 ) 

02C8 COMHON / 1 M F CT 2 / PRSN(NPM) , PR SPR V ( NPM > 

0 ? C9 COMMON /DISPLC/ 0 I S N t NPMT , 3 ) ,01 SP R V ( NPM T , 3J r X < N PM T^l.,8 FSJN PH T ,3 1 

’ 02 ID “ " COMMON /SOLCNV/ VER(NPMT,IU1 

0211 . COMMON / S OLSTR / STS(NPH,3,3) 

0212 ■’ COMMON /SOLDIS/ D1SINPHT»31 

0213 „ COMMON /BCVER/ I BO V T ( I U I , I B 0 V ( NB V , II ) , VBD (NB V , I U > 

0214 COMMON / B C S TR / 1 BO S T l 3 ,3 1 , 1 BOS ( N& S , 3 , 3 ) ,SBD f NBS ,3 ,3 > 

0215 COMMON /BDDIS/ 1 601 ST I 31 , I bDIS (NSD , 3 ) ,0 1 S8D ( NBO ,3 1 _ 

02 16" COMMON /DATE/ 1DATE C 3 > 

0217 DATA P3/’XXXX • t’XXXX’/ 

0218 ’ “ DATA KFILE ,LF I LE , MF ILE r NF I LE/ 1 S , 1 7 , 1 4 , 1 2/ 

02 19 C 

0220 C KFILE -OUTPUT MOMENTUM, ENERGY, DENSITY AND STSRESS MA TR I C FS 

0221 C AND ASSOCIATED FORCING VECTORS IN CELFE ZONE 

0222 " C LFILE=OUTPUT DISPLACEMENT MATRIX OF CELFE 20NE ‘ 



CELFEP 


DATE 103178 


> 

t 

co 

O' 


_02 23 
02.4 
02 25 
0226 
0227 
02 28 
0 2 29 
02 20 
02 n 

PE 02 !2 
' 02 13 
02 3*4 
0225 
02 16 
02 17 
02 18 
02 ’9 
02 <10 
_ 02 <i 1 
02 <i2 

02 <i3 
U2<l<4 
0215 

0? *t 6 
02 <<7 

02<ie 


C_MF 1J.E = INPUT SOLUTIONS OF ENTIR E ST RUCTURE IN DISPLACEMENTS AND 

C MFILE=INPUT SOLUTIONS" OF TeV$ ITT, 'MO MEN fuMSV "ENERGY t STRESSE's 

C IN CELFE ZONE 

C NFILE^INPUT ' SOLUTIONS OF ENTIRE STRUCTURE IN DISPLACEMENTS AND 

C VELOCITIES 

C FILE 16 USED TC STORE CELFE VARIABLES AND RELATED QUANTITIES BETWEEN 
C EXECUTIONS OF NASTRAN 

DATA N WD/2CQG/ 

END 

STATEC PROC 
C 

COMMON /UNITCV/ I UN IT , F A C T L < 2 > ,F A C T V < 2 J , F AC TR 1 2 I , F A CT E ( 2 ) , 

I FACTS (2 J,C1FFS(2) 

DIMENSION VER(NPH,5)«Pll),XNTFIll' 

C 

C 

C TARGET BORON/EPOXY 

C 

DATA ATI, AT2, R TO, BT1, H T2, CTO, CT1, PHI T/ 1.8212,4. 35 09 , 0.3 764, 0.328 7, 
1 ' UQ801,'C.553 i;0. 6346, 0.250/' 

C 

C PROJECTILE — - SILASTIC 

C 

DATA AP1,AP2,BPO,BP1,BP2,CPO,CP1,PHIP/O.OD4 794, 0.04 664, 0.3396 9, 

1 0,02377, C. 50767 ,0. 4925, 0.5721,0.2000/ 

END' ' ' 


END FDP ERRORS : NONE 


SHOG ,P 
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T i FOR , S ’ CEL TRnTcEL TRN 
USA E 3 -01/09/78-23:43:25_ .<7, I 


DATE ' 010978 



SUBROUTINE CELTRN ENTRY POINT 001003 


STORAGE USED: CODE f 1 ) 001 0 1 6 D A T A ( 0 I .0042 4 5 ; .BL ANK COMMON <2 |._0O.OOpO. 

COMMON BLOCKS: . . . - - 




00 0 3 

0009 
U0U5 
U006 
00 0 7 

0010 
0011 
0012 
00 13 
0019 
UD 1 5 
0016 
00 1 7 
U0 2 0 
002 1 
GU22 
t:0 2 3 
UQ24 
0026 
0026 
00 2 7 
0030 
00 31 
0032 
00 3 3 
0039 
00 3 S 
00 3 6 
00 3 7 
0090 
004 1 


SYSMTX 007641 
DATAX 000011 
CEL21 000015 
CLL23 001190 
CRTHPC 000060 
MATRL 000005 

NCASE 000003 

GC0M1 000529* 
IMPCU D06650 _ . 

1MPCT3 000500 
] HP C T 9 000660 
ELMLAG 000910 
PARDOF 000002 
CELZ2 000007 
LAGRGN 000006 
PROJMT 000097 
NODE P J 000003 
SUP 1 CE 000010 
TSlfP 000312 
SRFACE 000077 
MATRL2 000230 
STRESS 002530 
IMPCT2 00023D 
OISPLC 001620 
SOI CNV 000579 .. 

SOLSTR 001759 
S0101S 000399 
UUVCIf 01113 7b 
BOS T R 002591 
RODIS OOD713 
DATE 000003 



EXTERNAL REFERENCES (BLOCK, NAME) 


0092 NTRAN 

0093 OPNN&S 

0099 OPENTP 
0095 OPFNF 
LO 9 6 INTYFC 

0097 ERTRAN 

r.oso nf rh ? 4 

1.051 Mw DU! 
0052 NI071 

005 3 NRIKI! 



ORIGINAL PAGE fS 
OF POOR OUALtTY 
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DATE 010978 


0054 N 1 0 3 J 
DOSS NIOIS 

0056 NUDCS 

0057 NERR3S 


S I OR AGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME ► 


> 

t 

UJ 

<x> 


0001 


000013 

100L 

0000 


004051 

1 0 1 F 

0001 


000045 

150L 

0 ooo 


004062 

1800F 

0000 


004065 

1B10F 

0000 


004074 

1820F 

oaao 


004101 

1825F 

00 00 


004 1 06 

.1900F 

0 000 


004122 

191QF 

0000 


004134 

191 IF 

ciooa 


004145 

1912F ’ 

0001 


000060 

20GL 

00 01 


000070 

2 07(5 

’a oo i 


“000116 

2 1 OL 

0001 


000125 

21 1L 

GOO 1 


000147 

215L 

0001 


JO 0 0 2 5 3 

2 2SL 

0001 


000267 

230L 

0 001 


000334 

252 L 

0001 


000344 

255L 

0001 


00021 7 

25 6G 

0001. 


~0 0 0 2 2 6 

2 6 1 G 

aooi" 


000243 

267G 

' 0 00 o" 


’004 16 4" 

3000F 

0001 


'000300 

314G 

0001 


000307 

3 1 7G 

0001 


000324 

325G 

0001 


000414 

36QG 

0 00 1 


000434 

36 7 G 

0001 


000443 

377G 

uooi 


000354 

4 OOL 

0001 


000467' 

405G 

0001 


000406 

405L 

anoi 


000411 

4 1 0 L 

0001 


000507 

4 1 4 G 

0001 


000523 

427G 

0001 


000543 

4 366 

0001 


000520 

4 50L 

0 001 


000556 

4 5 1 G 

0001 


000576 

4 60G 

0001 


000550 

4 60L 

COOl 


000604 

4 8 OL 

0001 


000717 

500L 

0 001 


000626 

50 1 G 

0001 


000632 

504 G 

0001 


000647 

5 1 1 G 

0001 


000672 

526G 

0001 


000701 

5 3 1 G 

pool 


000722 

90QL 

0001 


000732 

906L 

'000 1 


000742 

907L 

0001 


000752 

9 0 8 L 

0001 


000760 

999L 

b 00 5 


' 000001 

A 

0005 

R 

000002 

ALPHA 

0032 


001254 

BFS 

0000 

R 

003736 

BG 

GOOD 

R 

003766 

B r 

0013 


QQ1 370 

C 

0016 


OOOOOO 

CD 

0014 


000040 

CFRC 

0015 


0001 10 

CINT 

0007 


000055 

CK 

0 016 


000200 

CL 

0024 


000002 

C0NST1 

0016 


000100 

CS 

0015 


0DD044 

CSPF 

0015 


OOOOOO 

CSTF 

0 00 5 

R 

000013 

DELT 

0016 


000250 

OF 

00 2 4 


000001 

0 IFF 

C02 0 


000004 

0 I M X 

00 2 0 


000005 

DIMY 

0 02 0 


000006 

D1MZ 

(10 35 

R 

OOOOOO 

OIS 

00 4 0 


000347 

OISBO 

0032 


OOOOOO 

0 I S N 

0032 


000344 

DISPR_Vj._ 

0 02 5 


000002 

OT 

0007 


000033 

E 

0016 


000310 

ELXY2 

0014 


000030 

F JCB 

0013 


001140 

F JN 

0 013 


001254 

FJPRY 

UOOO 

1 

D 04 D 30 

I 

004 n 

I 

000003 

IBDIS 

0040 

I 

OOOOOO 

IBDIST 

0037 


000011 

IB D S 

0 03 7 


OOOOOO 

1B0ST 

0036 


000005 

IBDV 

00 3 6 


000000 

1BDVT 

0004 


000010 

ICONO 

0000 

I 

004034 

ID 

0 04 1 

1 

OOOOOO 

IDATE 

0000 

I 

004040 

IE 

uooo 

I 

004042 

IFRR 

0000 

I 

004036 

I I 

0000 

I 

004050 

I J 

0 01 1 

I 

OOOOOO 

INDEX 

0000 


004223 

INJPS 

00 0 5 

1 

0000 1 1 

INNER 

0026 


000065 

I NTF 

0023 


000002 

INTFT 

0 00 5 


ooooao 

IOROC 

0021 


000002 

IOROL 

C010 


000004 

ISOP 

0010 

I 

000003 

ISOT 

0005 


000012 

ITER 

0 02 5 


oooooo 

I T 6 I V 

0000 

I 

003722 

ITRL 

0004 


000007 

I UN I T 

0000 

I 

004035 

J 

0000 

I 

004037 

K 

' 0 000 

I 

003731 

KFILE ‘ 

0012 


OOOOOO 

KODE 

0000 

I 

004027 

L 

ODOO 

I 

004045 

LCOL 

0000 

I 

003732 

LFILE 

0 0D7 


000022 

LI 

0000 

I 

004044 

LIE 

0000 

I 

004047 

LL 

0000 

I 

004046 

L S E T 

0017 


OOOOOO 

M A X OOF 

0 000 

I 

003733 

MF1LE 

0011 

r 

000001 

NASTRN 

0005 


000006 

NBW 

002 1 


000003 

NBWT 

0020 


000003 

NEL6 

0 021 


000001 

NELT 

0005 


000010 

NEPJ 

(102 3 


000000 

NEPJT 

0005 


OOOQD3 

NET 

0020 


OODOOl 

NETR 

0 000 

I 

003734 

NFILE 

0010 


oooooo 

NFRAC 

0026 


000000 

NFS 

0005 


000014 

NF ST 

0017 


00DU01 

N60 

0 005 


0U0Q05 

NHBW 

0021 


000004 

NHBWT 

0 0 1/ 


oom 14 

NOD 

0027 


0001 14 

noofr'c” 

00 2 D 


000002 

NPLG 

0 GO 5 


OU0007 

NPPJ 

0023 


000001 

NPPJT 

0005 


000004 

NPS 

0D21 

I 

OOOOOO 

NPST 

0020 


OOOOOO 

NPTR 

0000 

1 

00404 3 

NR 

aoii 


000002 

NSLIDE 

0003 


007640 

NSTAB 

0000 

I 

004026 

NSTORE 

0000 

I 

003735 

NWO 

0 014 


OUOOOO 

OH 

0022 


000044 

PCK 

002? 


000022 

PE 

0016 


000300 

PM 

0010 


000002 

P M I U 

ono7 


000044 

PN1U 

0022 


000033 

PPNIU 

0031 


oooooo 

PR SN 

0031 


0001 14 

PRSPRV 

0022 


000U1 1 

PSLC 

0 02 2 


OOOOOO 

PSLT 

0004 


000006 

PYLD 

LOGO 

R 

003720 

P 3 

0004 


000001 

R80P 

0004 


OOOOOO 

RHOT 

0 00 3 

R 

OOOOOO 

S 

0037 


001265 

SBO 

0016 


000210 

SF 

0007 


000011 

SLC 

0007 


OOOOOO 

SLT 

0 02 4 


OOOOOO 

SMIU 

0034 

R 

OOOOOO 

STS 

0030 


OOOOOO 

STSN 

0030 


001254 

STSPRV 

0025 


000001 

TIME 

0010 


000001 

TMIU 

0004 


OOODOS 

TYLO 

0004 


000002 

V 

0036 


000601 

VBD 

oooa 

R 

004041 

VEL 

0033 

R 

oooooo 

VER 

0013 


000344 

VERN 

0006 

R 

000344 

VERPRV 

0016 


000340 

VL 

0024 


000003 

V M A X 

0 02 4 


000004 

VMIN 

0016 


000220 

U 

0000 

R 

OOOOOO 

WORK 

0032 


000710 

X . 

0024 


000005 

XDIM ' 

0 013 

R 

oooooo 

XN 

0006 

R 

OOOOOO 

XPRV 

0000 

R 

004031 

X 2 

0027 

— 

OOOOOO 

YIELD 

0000 

R 

00^032 

Y 2 

»*" 11 

\ 

0 00 0 

R 

004033 

Z2 
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00101 

00101 

00101 

00101 

00103 

00103 

00103 

00104 

00105 
0 010 6 

00106 
0010 7 
00110 
00111 
00112 
00113 

00113 
001 14 

00114 
0011b 
00116 
00117 
00120 
00121 
00121 
00 1 2 ? 

0 U 1 2 3 

00124 

00125 

00126 
0012 7 
00127 

00130 

00131 
00131 
00! 32 

001 32 
001 32 

00133 

00134 
00136 

00136 

00137 
0Q1 40 

00141 

00142 

00143 
0 0 3 4 4 
0014b 
DO 1 4 6 

0014 7 
00150 

0015 1 

00152 

00153 
ft: - 1 <• 4 


5* 
6 * 
7* 
8* 
9# 
9* 
9* 
9* 
9# 
9* 
9* 
9# 
9* 
9 * 
9* 
9* 
9# 
10 * 
10 * 
10 * 
10 * 
10* 
10 * 
10 * 
10 * 
10 * 
10 * 
10 * 
1 0 * 
in* 
10 * 
10 * 
10 # 
10 * 
in* 

in* 
i o* 
10 * 
10* 
10* 
10* 
10* 
10# 
10 * 
10* 
10 * 
in* 
1 o* 
10* 
10 * 
10* 
10# 
10# 
n# 
10# 
10# 


C INTERFACING CELFE WITH NASTRAN 
C* ******************* 


INCLUDE PARAH 1 ,LIST 

PARAM1 PROC . _ 

C 

PARAMETER NPMT= 76,NEMT= 33,NPM= 76 t NEM= 33 

PARAMETER NPELG= 8,NPE= 8 

PARAMETER NDFRS = 53,NOINT-10. 


C 


PARAMETER 
PARAME TER 
PARAMETER 
PARAME TER 
PARAMETER 


NRMAX=2000,NCMAX=2 

NGPLG=2 ,N0P=2 
NC N T - 6 , NFRC-NPM 
I'U-5«NDPJT- 10 , NTSTEP=200 
NBV-NPMtNBS-NPM ,N3 P = NPM 


END 

INCLUDE C£LSTR,LIST 

CFLSTR PROC 

PARAMETER NWK =2000 ,NTRL=7 .. . __ 

DIMENSION WORK (NWK) ,P3(2) ,ITRL(NTRL) 

COMMON /SYSMTX/ S ( NRM A X , NCH A X ) * NS T A B . .. . _ . 

COMMON /DATAX/ RH0T,RH0P,V(3) , T YLD , P Y LD , I UN I T , ICO NO 

COMMON /CEL71 / TOROC,A,ALPHA,NET, NPS jNHBW ,NBW.,NPP_J t NE PJ. t IN.NER., 

1 ITER , DELI ,NFST 

COMMON / CE L 2 3 / X PR V t NP M T , 3 > , V E R P R V { NPM T , I U > 

COMMON /OR TMPC/ SL T ( 3 , 3 ) , SLC ( 3 , 3 > , L T < 3 , 3 > , E < 3 , 3 > , PNIU (3 , 3 ) •, CK T 3 J 
COMMON /MATRL/ N F R AC , TM I U t P M IU , I S OT , I SO P . ... 

COMMON /NCASE/ INDEX, NASTRN , NSL IDE 

COMMON /GEOM 1 / KOOE (NPMT ) ,NOD(NEMT , NPELG) 

COMMON /IMPCT1/ XN INPMT , 3 ) , VERN I NPMT , IU > ,F JN I NPH1 ,F JP RV I NPM) , 

1C ( NPMT, NCNT,NCNT ) 

COMMON / I MPC T 3/ OM I NPE , 3 1 , F JC8 I NPE ) , CFRC I NPELG , NCNT ,N CNT > 

COMMON / I MPC T4 / CSTF (NCNT , NCNT ) ,CSPF INCNT, NCNT) , 
1CINT(NDINT,NCNT,NCNT> 

COMMON /ELMLAG/ CD ( NP F L G , NPE L G > , C S ( NP EL G , NP EL G > , C L < NP EL G ) , 

lSF(NPELG) ,W< 3, NPELG ) ,DF (3, NPELG) , PM ( N PC L G ) , EL X Y 2 I NPE L G, 3) , 

2 V l (NPELG, IU) . 

COMMON /PARDGF/ MAXD0F.N6D 

COMMON /CEL22/ NP Tfi , N E TR , N PL G , NE L G , D I M X , 01 M Y , D I MZ 

COMMON /LAGRGN/ NPS T , NEL T , I ORDL , N8WT , NH BWT 

COMMON /PROJMT/ 'PSLT(3,3 ) ,PSLC(3 t 3) ,PE(3,3) t PP_Niyj.3j3J.,,PCK132_ 

COMMON /NOQEPJ/ NEPJT ,NPPJT ,1NTFT 

COMMON /SURFCE/ SM I U , 0 IFF , CON S T 1 , VM A X , V M I N , X D IM ( 3 ) ... _ 

COMMON / T S T E P / I TG I V , T 1 ML , DT ( N T S T EP ) 

COMMON/SRFACE/ NF S ( ND F R S ) , I N TF ( NO I N T ) .... . . . _ 

COMMON /MATRL2/ Y I E L 0 ( N P M T ) , NOD F R C ( N F RC ) 

COMMON /STRESS/ ST SN ( NPM , 3 , 3 ) , S T SPR V ( NPM , 3 , 31__. ; 

COMMON / 1 MPC T2/ PRSN (NPM ) ,PRSPRV (NPM ) 

COMMON /OT SPL C/ OISN (NPMT ,3 ) ,D1SPRV ( NPMT , 3 I ,X (NPKT f 3) ,BFS< NPHT , 3 ) 
COMMON /SOLCNV/ V Fft ( NPM T , I U ) 

COMMON / . 01 SIR/ STS(NPM,3,3) 

COMMON /SOLDI S/ 0 1 5 (NPMT , 3) 

common /kDvi.;/ n»i)»T ( tin , mnv in"v ,iui ,VBU(NBv t iu) 

C f) H m u N /IiUSII / it-DST ( 3,3) ,«MDS (Nc!S,3,II ,SBD(NBS,3,3) 

C OHfMN /'IU fl 1 6 / ! ill' ! ' I ! I) , ltd. 1 S INBP , 3 ) ,1) 1 SPD ( NUI) , 3 ) 


000000 

000000 

000000 

QOOOOD 

DOOOOO 

OOOOOO 

OQQOOO 

DDOOOO 

OOOOOO 

OOOODO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOODO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

DOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

000000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

'OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

Goouao 

OiJClOOO 

OOOODO 

DDOOOO 

aiiaiun 

OOOOOO 

t; .I oo on 

i. !•.;(.(■() 



CELTRN 


DATE 010978 


00155 

00156 
00160 
00160 
00160 
00160 
00160 
0(7160 
00160 
00160 
00160 
00160 
U0160 
00160 
00165 
00165 
0016 7 

00 170 

on wo 

00170 
0(1 1 7 0 

00170 
00)71 

001 71 

00171 
00171 
00171 

00171 

00172 

00173 
001 lb 
0 017 7 
00200 
00 ’01 
00201 
00201 
1.0201 
0 0 201 
00202 
0020 3 
0020i( 
00209 
0 0 20 9 
00209 

00205 

00206 
00211 
00220 
00221 
00222 
00223 
00229 
00229 
00229 
or: 22 9 
0 0? 25 


10 * 
10 * 
10 * 
10* . 
10 * 
10* 
10 * 
10 * 
10 * 
lb* 
10* 
10 * 
10 * 
in* 
m* 
in* 
u* 

1 2 * 

1 3* 
19* 
15* 
16* 
17* 

1 8 * 
19* 
20 * 
21 * 
22 * 
23* 
29* 
25* 
26 * 
27* 
28* 
29* 
30* 

3 1* 
7?* 

33* 

39* 

35* 

36* 

37* ‘ 

38* 

39* 

40* 

4 1* 
42* 

’4 3* 

4 4 * 
95* 
46* 
47* 
48* 
49* 
50* 


COMMON /DATE/ I0ATEI31 

DATA P3/*XXXX* , * X X XX * / 

D A V A""K F I L E" ", L F I L E , M FI L E , N F I L E / 1 5 17 , 14, 12/ 


C KFILE=OUTPUT 
_C_ 

LF ILE-OUTPUT 
,HFILE=INPUT 
HFILE=INPUT 


NF ILE -INPUT 


MOMENTUM, ENERGY, DENSITY AND STSRESS MATRICES 
AND ASSOCIATED FORCING VECTORS IN C ELFE ZONE 

'displacement matrix 'of 'celfe zone”" 

SOLUTIONS OF ENTIRE STRUCTURE IN DISPLACEMENTS AND_ 
SOLUTIONS OF DENSITY, MOMENTUMS , ENERGY , STRESSES 
IN CELFE ZONE 

SOLUTIONS OF ENTIRE STRUCTURE IN DISPLACEM ENTSANO 
VELOCITIES 


FILE 16 USED TO STORE CELFE VARIABLES AND RELATED QUANTITIES BETWEEN 
EXECUTIONS OF NASTRAN 
DATA NWD/2000/ 


END 

DIMENSION BG ( 24 ) ,BI (32 ) 

NST0RE-NRMAX*NCMAX+1 +9 +13 +NPMT*(3+IU> + 48_+5 +3 +N PH T+NEMT *NPEL 

1G +NPMT* ( 3+IU+NCNT*NCNT > +2*NPH ' ’ 

2+NCNT* (NCNT+NCNT+NCNT*NDINT ) + 2 +7 +5 +39 +3 +8 + 2 + NT STEP 
3+NDFRS+NOINT +NPMT+NFRC +NPH*<9+9> +NPM*2 +NPMT412 +NPMT*IU 
4 + NP M *9 ♦ N P M T * 3 + IU* t 1 +2*N B V ) +9 + NBS*18 +3 + NBD*6 
GO TO 1100, 150,200,400) ,KKK 

STORE DATA IN DISK FILE 16 AND'OPEN FILE' IN NA S T R A N ''iNPU TT 2 
FORMA! FOR WRITE ELEMENT MATRICES OF CONSERVATION AND 
CONSTITUTIVE EQUATIONS' 

100 CONTINUE 
WRITE (6, 101 INSTORE 

101 FORMATriX, ’LENGTH OF LABLED COMMON ' STORED I N FI IE "T 6 = * 1 8 ) 

CALL NTRAN(16,10,1,NST0RE,IBDIST{ 1 ),L,22) 

CALL OPNNAS <KFILE ,WORK ,NWD,IDATE ,P3, 1 ) 

RETURN 


OPEN FILE IN NASTRAN INPUTT2 FORM AT __FOR WRITE ELEMENT MATRICES 
OF 01 SPLA'cEMENT' VECTOR 

160 CONTINUE 

CALL OPNNAS (LFILE, WORK, NWD,I0ATE,P3,1) 

RETURN 


UPDATE AND WRITE NASTRAN BULK DATA IN FILE 


200 CONTINUE 

DO 220 I=1,NPST 

READ <1B, 1800)BG,X2,Y2';Z27bi" 

GO TO (210,211 >, INNER 

'210' x 2 - x pr v r i , i »" 


Y 2 -X PR V ( I , 2 ) 

Z2-XPRV ( T , 3 I 

GO TO 215 

UPDATE GRID COORDINATES FROM LAST TIME STEP 
211 X 2 - A t PllA*XPRV (I , 1 » + < 1 .O-ALPHA >*XNI I, 1) 


000005 
000000 
000000 ' 
000000 . 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
~ 0 0 0 0 D 0 ’ 
DOOOOO 
000000 
000000 
000000 
000000 
'oooooo 
000000 
oooooo 
oooooo 
000001 
000001 
000001 
000001 
000001 
000001 
000013 
000013 
’ 000020 
000020 
000031 
000041 
000041 
00004 1 
000041 ‘ 
000041 
000045 
000045 
000054 
000054 
' 000054 ■ 
0D0054 
000060' 
000060 
000070 
000106 
000116’ 
0001 17 
000121 
000123 
U00123 
000123 
IKH) 1 23 
000 1 25 



CELTRn 


DATE 010978 


0022b 

51 * 



Y2 = ALPHA*XPRV (I ,21* Cl . 0-ALPHA1 *XN < 1,2) 

000132 

00227 

52* 



Z2=ALPHA*XPRV(T.3)+(1.0-ALpHA)*XN(I f 3) 

000140 

0023D 

S3* 


215 

CONTINUE 

000147 

00230 

54* 

C 



000147 

0023Q 

55* 

C 

OUTPUT TO NASTRAN NEW GRID LOCATION 

000147 

CO? 30 

56* 

C 



000147 

00231. 

57* 



PUNCH 1 800 , BG , X 2 , Y2 , Z2 ,61 

000147 

00240 

58* 



WRIT£(19 t 1800)BG,X2,Y2,22,8I 

000164 

00247 

59* 


220 

CONTINUE 

000205 

00251 

60* 



PUNCH 1810, DELT 

000205 

00254 

61* 



10=1 

000212 

00255 

62* 



DO 230 I=1,NPST 

000217 

00260 

63* 



00 230 J=1 , 3 

000226 

00263 

64* 



IF (IBOTST(J) .EQ, 0) GO TO 225 

000232 

0026b 

65* 



1 1 = 1 BO 1ST (J 1 

000234 

00266 

66* 



DO 223 K = 1 , 1 1 

000236 

00271 

67* 



IE = IBDI S t K ,J > 

000243 

00 2 72 

68* 



IF (IE .EQ. I) GO TO 230 

000245 

00274 

69* 


223 

continue 

000253 

00276 

70* 


225 

CONTINUE 

OQ0253 

00276 

7 1* 

c 



000253 

002 7 6 

72* 

c 

UPDATE VELOCITY FOR. NASTRAN INITIAL .CONDITION 

000253 

002 76 

73* 

c 



000253 

00277 

74* 



VEL=VERPRV ( I ,J)/VERPRV (1,5) 

000253 

00300 

75* 



PUNCH 1820 , 10,1 ,J,DIS (I ,J ) ,VEL 

000255 

00307 

76* 


230 

CONTINUE 

000273 

00 312 

77* 



I D = 2 

000273 

00313 

78* 



00 255 1=1 ,NP5T 

000300 

00316 

79* 



00 255 J=1 , 3 

000307 

0032 1 

on* 



IF (IBDIST(J) .EQ. 0) GO TO 252 

000313 

00323 

8 1* 



II=IBDIST 1 J) 

000315 

00 324 

82* 



DO 250 K = 1 , I I 

000317 

00327 

83* 



IE=1 6DIS ( K , J ) 

000324 

00330 

84 * 



IF (IE .EQ. I) GO TO 255 

000326 

00332 

85* 


250 

CONTINUE 

000334 

00334 

86 * 


252 

CONTINUE 

GOO 3 34 

0 0 3 3b 

87* 



PUNCH 1825, ID, I ,J,DIS (I, J) 

00 D 3 34 

00343 

88* 


255 

CONTINUE 

000350 

00346 

89* 



RETURN 

000350 

00346 

90* 

c 



000350 

00346 

91* 

c 

UPOATE FILE 16 AND READ SOLUTIONS FR OH NASTRAN IN OUTPUT 2 FORMAT 

0D035D 

0034b ' 

92* 

c 



000350 

00347 

9 3* 


400 

CONTINUE 

000354' 

00350 

94 * 



CALL NTRAN1 16,10,2, NSTORE , IBD I S T < 1 ) , L , 22 ) ******** 

000354 

00351 

95* 



CALL OPENTP (MFILE.WORK ,NWK ,IERR , 1 ) 

000364 

00352 

96* 



IF (IERR .NE'. 0) GO TO 900 

000373 

00354 

97* 



GO TO .(410, 45D, 405 ) .INDEX 

000375 

00355 

98* 


405 

RETURN 

000406 

00356 

99* 


410 

CONTINUE 

0004 14 

00357 

100* 



DO 4 20 I =1 , XU ' . ' 

Un04 14 

00362 

101* 



CALL OPENF (IERR »ITRL 1 

00 IJ 4 1 4 

00363 

102* 



IF (IERR .NE. 0) GO TO 900 

000420 

00365 

103* 



CALL INT Vf C'< 4 9 00, WORK , NWK ,ITRL ( 3 ) ,1) 

000422 

00366 

104* 



00 419 NR=1 ,NPMT 

0004 34 

OU 571 

105* 



VLRtNK, I 1 = W0RK (NR) 

L Oil 4 34 

U l! '5 7 2 

106* 

419 

CONTINUE 

00(14 4 3 



CELTRN 


DATE 0 1 0 9 7‘8 


> 

l 

CO 


00374 

107* 

00376 

108* 

00401 

109* 

00402 

110* 

00404 

111* 

00407 

112* 

00410 

113* 

00412 

114* 

0041 3 

115* 

004 16 

116* 

004 17 

117* 

0042 1 

! 18* 

00424 

119* 

C0425 

120* 

00426 

121* 

0 0431 

122* 

004 32 

123* 

004 34 

124* 

00435 

125* 

004 4 0 

126* 

00441 

127* 

004 4 3 

128* 

00445 

129* 

004 4 6 

130* 

004 50 

131 * 

004 5 3 

132* 

00454 

133* 

00456 

134* 

00457 

135* 

00462 

136* 

00463 

137* 

00465 

138* 

00467 

139* 

00470 

140* 

004 70 

14 1 * 

004 70 

142* 

00470 

! 4 3* 

CI04 70 

144* 

004 7 1 

145* 

00472 

146* 

00474 

147* 

00475 

148* 

00477 

1 4 9 * 

00500 

150* 

00503 

151* 

00506 

152* 

0 0 S 0 7 

153* 

00510 

154* 

005 13 

155* 

00514 

156* 

00516 

157* 

00522 

158* 

00525 

3 59* 

0 0530 

1 6 6 * 

0 0533 

16 1* 

005 14 

16,’* 


420 CONTINUE 

DO 425 1 = 1*3 __ 

LIE=1 

IF ( ISOT .GE. 0) LIE.= I. 

DO 425 J = L I E , 3 

CALL OPENF 1IERR,JLTRL.» 

IFIIERR .NE. 0) GO TO 90Q 

CALL INTUEC t $ 90 0 , WO RK , N U K * I TRL 13) , 1_> 

DO 424 NR =1 * N PM 

STS<NR,I,J)=WORK(NR> 

424 CONTINUE 

425 CONTINUE 

” 60 10 460 

450 CONTINUE 

DO 455 1=1,3 

CALL OPENF ( IERR, ITRL ) 

IF (IERR .NE. 01 GO TO 900 

CALL 1NTU£Cl$9D0.U0RK',NWK iITR L(3) ,1) 

DO 454 NR =1 ,NPMT 

VER( NR, I ) =.W 0 R K l NR) 

454 CONTINUE 

455 CONTINUE , „ I 

460 CONTINUE 

IF (NASTRN ,.EQ. _1J. G0_T0_.48O 

DO 465 1=1 ,3 

CALL OPENF ( IERR , ITRL ) 

IF (IERR .NE. 0) GO TO 900 

CALL INTVEC ( 1900 , WORK ,NWK f ITRL (3) , 1 I 

DO 464 NR=1,NPMT 

0 I S < NR , I ) =WORK (NR) _ 

‘““464 "CONTINUE ’ 

465 CONTINUE • 

GO TO 500 

480 CONTINUE _ 

C 

C READ NASTRAN DISPLACEMENT AND VELOCIT Y VE CT ORS INTO S-ARRAY F OR 
C LAST NASTRAN ’ TIME~STEP " 

C 

CALL OPENTP<NFILE,WORK,NWK,IERR,1 ) 

IF (IERR .NE. 0) GO TO 906 
CALL 0PENF(1ERR,ITRL) 

IF (IERR. NE .0 1 GO T 0 907_ 

' L COL = 0 ' 

DO 490 LSET=1 ,4 , , . 

DO 490 LL= 1 ,2 

LCOL =LC0L+ 1 

CALL INTVEC (1908 , WORK ,NWK , ITRL ( 3) , 1 ) 

DO 485 NR = 1 .NRMAX 

S ( N R , L L l=WORK (NR)' ' 

485 CONTINUE _ 

WRITE (6,3000) LCOL,NWD 

490 CONTINUE 

DO 498 I = 1 , NPS T ' 

00 498 J — 1 » 3 . ..... . . 

I J = fc* ( 1 -1 ) * J 
D T 5 1 1 , J ) : S l I J , 1 > 


000443 
000443 
000443 
000445 
000452 
000467.. 
000473 ’ 
0D0475 
000507 
000507 
000516 
000516 
000516 
000523 
000523 
000523 
000527 
000531 
000543 
000543 
000550 
000550 
00D550 
000550 
000556 
000556 
000562 
00D564 
,000576 
000576 
'000602' 
000602 
000602 
000604 
000604 
000604 
000604 
000604 
000604 
000612 
000614 
000620 
'000622'' 
000632 
000632 
000632 
‘□00635 
000647 
000647 
000651 
000651 
000664 
000664 
0007C1 
000701 
UNO 705 



£f~V 


CELTRN 


DATE 

010978 ~ 

0D53S 

16 3* 

498 

CONTINUE 

00D7I7 

00540 

164* 

500 

CONTINUE . . . 

000717 . 

0054 1 

165* 


RETURN 

000717 

00542 

166* 

900 

URITEI6, 19001, MFILE.IERR - - 

000722. 

00546 

167* 


GO TO 999 

000730 

0054 7 

168* 

906 

WRITE ( 6, J9 JO ) NFILE.IERR 

00073? 

00553 

169* 


GO TO 999 

000740 

00554 

170* 

907 

WR1TE16, 1911 1 NFILE , IERR . 

000742 

00560 

1 71 * 


GO TO 999 

000750 

0 05 6 1 

172* 

908 

WR1TEC6, 19121 NFILE 

000752 

00564 

17 3* 

999 

CONTINUE 

000760 

00 5 6 5 

1 7 4* 


CALL ERTRAN(l) 

000760 

00566 

175* 

1800 

FORMAT (24A1 , 3F8 . 3,32 A1 1 

000762 

0056 7 

176* 

1810 

FORMAT ( * T STEP 1', 7 X , * 2 * , 7X , F8 . 3 , 1 1 * 1 

000762 

00570 

1 77* 

1820 

FORMAT ( 'TIC •,3I8,1P2E8.2) 

000762 

00671 

1 78 * 

1825 

FORMAT ( • 0 ARE A ',318, 1PE8.2) 

000762 

00572 

179* 

1900 

FORMAT (IX, • B MATRIX FILE E RR OR 1 , 5X , ’ FIL E NO. ',I3,$X, 

000762 

00572 

180* 


1 * 1 1 R R - * , 1 4 ) . , _ . 

000762 

u 0 5 7 3 

181* 

1910 

FORMAT ( 1 X , ' ERROR IN OPENTP, FILE NO. *, I 3 , 5X , * TERR = *,141 

000762 

00574 

182* 

1911 

FORMAT fix, ’ERROR IN OPE NF , FILE NO. * , I 3 , 5X , ’ I ERR = *,I4> 

000762 

00 6 7 5 

1 8 J* 

1912 

FORMAT (IX, ’ERROR IN INTVEC WHEN READING DISP. AND VELOC. •/ 

000762 

00575 

184* 


1 5X,'VF.CfORS FROM FILE NO. ’,14) 

000762 

00676 

165* 

3000 

FOHMAK IX, 'COLUMN *,I3,’ HAD ’,15,’ WORDS READ, ’,15, 

C 0 0 7 6 2 

005 76 

186* 


1’ WORDS WERE SKIPPEQ IN THIS COLUMN.') 

COO 76 2 

006 7 7 

18 7* 


RETURN 

000762 

00600 

188* 


END 

001015 


END OF COMPILATION: NO DIAGNOSTICS. 


dHDG.P CONTROL 

dPRt.S CONTROL 

FURPUR 27R2A RL71-3 01 /p? /78 J3 :J 3j_30 



-44 


CONTROL 


CH-LEEBIN202*LEE <01 .CONTROL 
. 1 . LIB SYSS*MSF C* » 

2 SEG CELFE 

3 . IN CELFE ,MATRX 

8 . SEG C3VL*, ( CELFE I 

5. IN C 3 VL ’ 

6 ' SEG' C£LA*,C3VL 

7 IN CELA 

8 SEG CELO*,CELA - 

.,9 . IN CELO 

“ 10 ’ SEG C3JB*»CELD " 

11 . IN C3.JB 

12 SEG FRCR* » C3 JB 

13 . IN FRCR 

18 SEG S TFG* , FRCR 

15 , IN STFG 

16 SC G STRN*,STFG“" 

.,17 IN STRN 

' 18 SEG SL ID* t STRN 

19 IN SLID 

> 20 SEG OPE NT*, SLID 

21 IN OPENT.INTVEC 

22 END 


3HDG ,P 


C 3 JB 




DATE 010978 


"c3 ja ' 

SFOrYs cl JB , C 3JB 

USA E 3 -01/09/78-23:43:3.0 .< 1 , L 

SUBROUTINE CEL3J8 ' ENTRY POll)7n3obTu 


STORAGE USED: CODE (I) 000132; OAT A.( 0 ) .Q00033;_BL.ANK ..COMMON (2.) .PflO.OpO_ 

COMMON BLOCKS: .. 

0003 CEL21 .000qi5._ 


EXTERNAL REFERENCES (BLOCK, NAME) 

0004 NERR2J 

0005 . NERR3S . _ 


> 

i 

Ln 


STORAGE ASSIGNMENT (BLOCK, TYPE, REL A TI VE LOC A T I ON , NAME) 


0001 

000062 

IDOL 

0001 

000031 1 07G 

0001 

000036 SOL 

0 001 


000051 

60L 

0001 

000054 

S OL 

0001 

000056 

8SL 

,0003 

.000001. A 

.0003. 

.. _0 0 0 0 0 2. _A.k p H A — ... 

0 003 


000013 

.DELT 

.. 0,000 

,000005 

INJPS 

0002 

I 000011 

INNER 

0003 

000000 IORDC 

0003 

000012 "iTER ' 

0 GQO 

I 

OOOOQO 

N 

00 U 3 

000006 

NSW 

0003 

000010 

MEP J 

0003 

000003 NET 

0003 

000014. NFS! 

0 00 3 


000005 

NHBW 

0003 

000007 

NPP J 

0003 

I 000004 

NPS 

0000 R 

000001 X 

0000 

R 000002 Y 

0 000 

R 

000003 

Z 





00101 

1* 



SUBROUTINE CEL3JB(NPM,VERPRV,VERN,VER,FJPRV ,F J,KOOE > 

000031 

00103 

2* 



DIMENSION VERPRV (NPM,5) ,VERN [ NPM » 5 ) ,VER(NPM,5 ) , 

□0D031 

00103 

3 * 



2F JPRV (1 ) ,FJ ( 1 1 , K ODE ( 1 ) 

000031 

00104 




COMMON /CELZ 1 / IORDC, A, ALPHA, NET, NPS, NHBU,NBW, NPP j,NEPJ, INNER, 

000031 

00104 

5* 



1 ITER, CELT ,NFST 

000031 

00104 

6* 

C 



000031 

0 0*95 

7* 



FJCB t X t Y:2);X*Y/Z 

UOOO 31 

001 OS 

a* 

G 



000031 

00106 

9# 



DO 100 N- 1 , N P S 

000031 

oo n l 

10* 



IF (K ODE (N ) .NE. 6) GO TO '50 

000031 

001 1 3 

11* 



F J < N ) =1.0 

000032 

00114 

12* 



GO TO 100 

000034 

00115 

1 3* 


50 

X=FJPRV (N ) 

000036 

00116 

14* 



Y=VERPRV(N,5) 

000037 

00117 

15* 



GO TO (60, 801, INNER 

00004 1 

00120 

16* 


60 

Z=VERN(N,5) 

000051 

00121 

17* 



GO TO 85 

000052 

00122 

1 ft* 


80 

Z= VERIN.S) 

000054 

00123 

19* 


85 

F J ( N ) SFJC8(X,Y,Z) 

000056 

00124 

20* 


100 

CONTINUE 

. OUUQ70 

00126 

21* 



RETURN 

000070 

00127 

2?* 



END 

000131 


END OF COMPILATION: 


NO DIAGNOSTICS 


CSJB 


DATE 0109,78 


3HD6 » P 


> 

l 


C3VL 



A-47 


C3VL 


DATE 01097B 


3F0R , S C3VL.C3VL 

HSA E3 -01/09/73 -2 3:43:31 <lt> 


SUBROUTINE CEL3CV ENTRY POINT OG1461 


5 TOR A GF USED: CODE (i) 001526; 0 A J A { 0 ) _QBO 1 Q.l Bi ANK COMMON J2) OQQQQQ 

COMMON BLOCKS: .. . 

□ 0D3 SYSMTX 0Q7641 

U0G4 CELZ1 0Q0015 

0005 CFLZ3 001140 

0006 ORTHPC 000060 

0007 MATRL 000005 . . 

0010 NCASE 000003 

0011 GE0M1 000.524 ; 

'0012 IMPCT1 006650 

0013 IMPCT3 000500 . . ... . 

0014 FLMLAG 000410 

0015 PARDOF 000002 

0016 STRESS 002530 

0017 STSFLM 000110 

0020 DISPLC 001620 

0021 DISFLM 000060 . • . 

0022 SOI CNV 000574 . 

U023 BOVER 00 1 375 .. 

0024 LAGRGN 000005 


EXTERNAL REFERENCES' (BLOCK, NAME.) 


0025 

0026 
0027 
00 30 
00 31 
0032 

STORAGE 

elcelv 

ELMT RX 
EL AGVA 
RNPE Q 
NF.RR2S 
NERR3S 

ASSIGNMENT 






*■* 



* 








(BLOCK, TYPE 

. RELATIVE 1 

LOCATION, 1 

NAME) 


- - - 

• - - 

- . . 

0001 

000275 

1 10L 

00Q1 

000324 

1 15L 

0001 

000333 

1 18L 

0 001 

000434 

120L 

0001 

000004 

142G 

0001 

000005 

145G 

0001 

D00517 

1 SOL 

0001 

000523 

155L 

0 001 

000544 

1 58L 

0D01 

000607 

165L 

0001 

000616 

170L 

0001 

000050 

1 7 1 G 

0001 

000642 

1 7 1 L 

0 001 

000106 

175G 

0001 

000672 

180L 

0001 

000730 

1 88 L 

0001 

001052 

190L 

0001 

001135 

193L 

0 001 

001141 

195L 

0001 

001162 

197L 

0001 

001230 

200L 

0001 

00011 7 

202G 

0001 

0 DO 1 4 1 

2 1 4 G • 

0 001 

000144 

22 OG 

0001 

000205 

2 3 1 G 

0001 

000225 

2 36G 

0001 

000246 

2 4 4 G 
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SUBROUTINE CEL3CV(L1 


C * 4 4 44. ****** 4 4444444*4 4 *4 * 

c 

C ASSEMBLE SYSTEM - MATRICES’ 

c 

c 4444444444444444444444444 

c 

INCLUDE PAR am iTlist 
PARAM1 PROC 


FOR CONSERVATION EQUATIONS 


END 


CONSRV 


PARAME 

TER 

PARA 

ME 

TER 

_P A R A 

ME 

TER 

PARA 

ME 

TER 

PAHA 

ME 

f f.R 

PARA 

ME 

TER 

PARA 

ME 

TER 

PARAME 

TER 

X NC L 

ODE C 

f PRO 

C 



NPMTo 76,NEMT= 33,NPKr 7S,NEM= 33 
NPELG= 8,NPE= 8 

N0FRS=53,NDINT=10 


NRMAX-ZDOOjNCMAX"? 
NfiPLGo2,NGP=2 
NC N T - 6 i NFRC-NPM 
IU=5,N0PJT= 1 0 , N TSTE P-200 
NBV=NPM ,NBS=NPM ,N3D =NPH 


CONSRV, LIST 


I 


COMMON /SYSHTX/ S < NRMAX , NCMAX ) ,NSTAB , 

COMMON /CEL 21/ IORDC,A,ALPHA,NET,NPS;NHBV~,NBuTNPPJ»NEPijiNNER'’'t 
1 ITER,DELT,NFST 

' COMMON /CEL 2 3/ XPRV (NPMT ,3) , VERPRV t NPMT , IUT 
COMMON /ORTTPC/ SL1(3,3),SLC<3,3),LI13,31,E<3,31,PNIU(3,3> ,CIU 3 ) 
COMMON /hatrl/ nfrac.tmiu ,pmiu , ISoT , ISOP 
COMMON /NC A SE / INDEX, N A S T RN , NSL 1 0 E 
COMMON /GE0M1/ KODL (NPMT) , NOO ( NE H T , N PEL6 ) 

COMMON /IMPCT1/ X N ( N P M T ,3 ) ,V£RN (NPMT , I U ) , F J N < N P M 1 . 


1UNPHI ,NCNI ,NCNT I 

COMMON / IMI’CT V OMI NPT , 3 I ,F JCB (NPE ) , Cl" KC [ NPf L G , NC 


,F JP RV < 
NT ,NCNT 


NPM 1 , 
I 
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00126 

10* 


COMMON /ELMLAG/ CD { NPELG , NPELG ) , CS ( NPELG , NPELG ) »CL < NP EL G ) , 

000000 

00126 

10* 


1SF(NPEUG),U(3.,NPEL(?) ,DF<3.,NP£miPHlNPELG».tELX.Y.mPe.LG,,5L> -- — 

000000 

00126 

IQ* 


2Vt-(NPELG,IU) 

OOOOOO 

00127 

10* 


COMMON /PARDOF/ KAXDOF ,NGD 

oooooa 

00130 

10* 


COMMON /STRESS/ ST SN ( NPM , 3 , 3 » , STSPR V < NPM , 3 , 3 ) 

oooooo 

00131 

10* 


COMMON /STSELM/ STL[NPE,3,3) 

OQOOOO 

001 32 

ID* 


COMMON /DISPLC/ DI SN ( NPMT ,3 > ,01 SPR V (NPMT , 3 ) »X ( NPM T, 3 ) ,BFSINP«T,3> 

oooooo 

001 33 

10* 


COMMON /DISELM/ OL < NPELG , 3 1 , BF ( NPEL G , 3 1 

oooooo 

00134 

10* 


COMMON /SOLCNV/ VER(NPMT,IU) 

oooooo 

00135 

10* 


COMMON /BDVER / I BD V T (I U 1 , IBO V ( NBV , IU ) , V BD < NB V , IU 1 

onoooo 

00135 

10* 

END 


oooooo 

00 136 

n* 


COMMON /LAGR6N/ NP S T , N E L T , IOR D L , N B W T , NHBU T 

oooooo 

00136 

12* 

C 


oooooo 

00136 

13* 

C 


oooooo 

00137 

16* 


IF ( NASTRN .NE. 0) GO TO 61 

oooooo 

001*1 1 

15* 


00 6 Q I=1,NRMAX 

000005 

0 U 1 *1 4 

16* 


DO 60 J=1,NCKAX 

000005 

001 *17 

17* 

60 

SI 1, JI=Q.O 

000005 

00152 

18* 

6 1 

CONTINUE 

0U0013 

00153 

19* 


IF (INDEX ,E0. 11 GO TO 66 

000013 

00155 

20* 


LIN=1 

0000 15 

00156 

21* 


GO TO 170 

000017 

0 0)57 

22* 

66 

CONTINUE 

00U021 

00 160 

23* 


LIN=NET+1 

• 000021 

0016 1 

26 * 


MBW-N80T 

000023 

001 62 

25* 


MHBW=NHBWT 

000025 

0 016 3 

26* 


IF IL .IE. 31 GO TO 67 

000027 

00 165 

27* 


MRU=NBU 

000033 

00166 

28* 


HHbWrNHBU 

000035 

00167 

29* 

67 

CONTINUE 

000060 

00170 

30* 


DO 165 N=1,NET 

000060 

00173 

3i* 


GO TO (68,85) .INNER 

000050 

001 76 

32* 

68 

DO 80 1=1, NPE 

000060 

00177 

33* 


NI = NOD(N,I 1 

000106 

00200 

36* 


F JC8 ( I ) =F JPRV ( NI ) 

000107 

00201 

35* 


00 50 J=1 , 3 

000 117 

00206 

36* 


ELXY2 (I , J >=XPRV (NI , J! 

000117 

00205 

37* 

50 

VL ( I ,U) =VERPR V (Ml , J » / VERPRV ( NI , 5> 

000120 

00207 

38* 


IFIITER .GT. 1 .OR. N . GE . NEPJ) GQ TO 68 

000126 

00211 

39* 


VL<I, 31=0.0 

000126 

00212 

60* 


VLII, 61=0.0 

0 00 12 7 

00213 

6 1* 

68 

DO 75 J =i , 3 

' 000131 

00216 

62* 


6F ( I , J 1 = BF S ( N I ,.J 1 

000161 

00217 

6 3* 


DO 75 K=1 ,3 

000166 

00222 

66 * 

75 

STL(I,J,K1=STSPRV(NI,J,K) 

000164 

U0225 

65* 

80 

CONTINUE 

000171 

00227 

66* 


GO TO 11 0 

000171 

00230 

67* 

85 

DO 100 1=1, NPE 

000173 

00233 

6 8* 


N I =NOD ( N , I 1 

0D0205 

00236 

6 9* 


FJEB(I) =ALPHA*FUPRV(NI ) ♦ ( 1 .D-ALPH A 1 *F JN ( N I ) 

000212 

00235 

50* 


DO 90 J = 1 , 3 

000225 

00260 

5 1 * 


E l. X Y 2 ( I ,J)=ALPH A *XPRV(NI,J1+ (1.0-ALPHA >*XNCNI,J) 

000225 

0026 1 

52* 


VL (I ,J) = ALPMA*VERPRVINI»J)/VERPRK(NI ,51*(1.0-AL S HAI* 

0002 3? 

0026 ) 

53* 


1 VF (INI M , Jl/ VERNINI ,5 1 

00023? 

002*1 2 

56* 


BF ( I , J 1 =BF S (M ,J> 

(lljlJ 2 4 2 

11026 3 

55* 


DO 9 0 K = 1 , 3 

000 246 
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i 

cn 

o 
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00246 ’ 

56* 

00251 

57* 

00253 

58* 

00256 

59* 

00257 

60* 

00262 

6I*_ 

U0265 ' 

62* 

00267 

63* 

00270 

64 * 

00273 

65* 

00275 

66* 

00277 

67* 

00277 

""6 8* 

00 300 

69* 

00303 

70* 

00304 

71* 

00305 

72* 

G 0 3 0 7 

73* 

0031 1 

74* 

00313 

75* 

00316 

76* 

.00 52 1 

77* 

00324 

78* 

00326 

79* 

00330 

80* 

00333 

81* 

00 3 34 

82* 

00 336 

83* 

0 0 341 

84 * 

nn34 3 

85* 

U 0 5 4 4 

.86* 

00345 

8 7* 

0034 7 

88* 

00350 

89* 

00351 

90* 

U0352 

91* 

00353 

92* 

00356 

9 3* 

00357 

94* 

00360 

95* 

00363 

96* 

00364 

97* 

00367 

98* 

00371 

99* 

00373 

100* 

00375 

101* 

004 00 

102* 

0 0401 

103* 

00404 

104* 

00405 

105* 

004 10 

106* 

004 1 1 

107* 

004 12 

108* 

D04 1 3 

109* 

C04 1 6 

110* 

0 04 17 

111* 


9 0 STL < I, J, K)=ALPHA*STSPRV INI, J,K)*C 1.0-ALPHA >*STSN<NI,J»K) 

100 CONTINUE _ 

110 DO 118 i=l,NPE 

Nl = N0D(N,I>_ .. „ 

IF ( K00E (NI ) > 112,112,115 

1 12. 0 0 113 J = i,,3 

113 OH (I ,JJ=VL fl, J'i 

GO TO 118 _ _ 

1 1 5 DO 116 J = 1 ,3 

116 0M(I,J>=0.G __ _ t _ 

118 CONTINUE * 

CALL ELC£LV(NGP,NPE,ELXY Z.SF,DF.H,VL.OH,F J CB,BF,STL,C O ,CS,CL, 

1 ■ 1U,D£LT,L, IORDC) 

DO 120 1=1, NPE _ _ , 

NI = NOD ( N, I 1 

PH ( I 1=VERPRV (NI ,L > 

IF { I TER .GT. 1 .OR.” N~Vg'eV NEPJl" GO TO 120 

IFIL .EO. 3 .OR. L .EQ. 4>PH(I»=0.0 

120 CONTINUE 

DO 140 1 = 1 , NPE 1 _ _ 

DO 140 J=1 ,NPE 

140 CL(II:CL(I)*CD(I,J)*PH1JI _ 

IF ( NASTRN .EO. 01 GO TO 158 

IF (NSTAB .NE. 0 ) .GO. TO 15_5 

DO 150 1=1, NPE 

N I =NOD ( N , I ) 

IF t KOOE < N I > . .LT. 21 GO TO 150 

DO 148 J = 1 ,4 PE _ 

148 CS(1 , J) =0.0 

CSII, 11 = 1.0 

C.L ( I ) = V E R P R V ( N I~L ) " 

150 CONTINUE 

155 CONTINUE " ' ' 

CALL ELHTRX t C S , CL , NPS , NEHT , NPE L 6 , NOD , N , CD , IS O VT , I BO V , VBD t NB V , L , 1) 

GO TO 165 " 

158 CONTINUE 
DO 160 1 = 1, NPE' 

NR = NOD(N,I> __ 

S(NR,HBK) = S(NR,HBW> + CL ( I f 

DO 160 J = 1 » NPE __ 

NC = NOD(N,J)-NR>HHBW “ 

16 0 S<NR,NC)=S(NR t NC)+CS( l,J> 

165 CONTINUE 

IF (LIN .GT. NELT) GO TO 250 

170 IF (L .GT. 3 ) GO T0I250 
DO 200 N=LIN,NELT 

GO TO (171, 180), INNER ’ 

171 DO 175 1=1 ,NPFL6 __ »’ , 

NI= NOD ( N , I ) ^ " “ 

DO 175 J= 1 , 3 . 

' ELXVZl I ,J) = X(NI, j) 

DL(I,Jl=niSPRV(NI,J) _ 

BF < I , J) =BFS <NI ,J » 

175 CONTINUE _____ 

CO TO 1 88 

180 DO 185 f =1 ,NPEl G 
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000275 
000275 
000306 
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000320 
000320' 
000322 
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000331 
000335 
000335 
000335' 
000361 
000421 
000422 
000426 
000430 
000436 
000436 
DD0447 
000447 
000460 
000462 
*000471 
000474 
000476 
000511 
000511 
000812 
000514 
000523 
000523 
000523 
000542 
000544 
000544 
000554 
000557 
D00564 
000564 
000571 
*000611 
D00611 
000616 
000621 
000632 
000642 
" 00D647 
000650 
D00655 
000656 
000660 
000670 
‘ D0U670 
I»0 U 6 7 2 
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date ' ”016978 


00922 

112* 


NI=N0D(N,I ) 

000702 

00923 

113* 


DO 185 J- 1 1 3 

000703 

00926 

114* 

* 

ELXYZ(I»J ) = X INI » j 1 

000710 

00927 

115* 


DL( I, Jl=ALPHA*OlSPRy (NI.JltJl»QrALPJH)*D.ISNJNL*ii.» .. , 

0OO7J1 . 

0 0 9 3 0 

1 16* 


BF < I , J)=BFS (Ml t J > 

000717 

00931 

1 1 7* 

185 

CONTINUE 

000730 

00939 

.118* 

188 

CONTINUE 

000730 

009 35 

1 19* 


DO 189 1=1 , NPELG 

000730 

00 9 9 0 

120* 


NI=NOD(N,I 1 

000735 

00991 

121* 


DO 189 J=1,NCNT 

000736 

0099 9 

122* 


DO 189 K - 1 , NCN T 

000744 

0 0997 

123* 

189 

CFRC<I,J,K)=C(NI,J,K1 

000744 

0 0953 

124* 


CALL ELAGVA (NGPL6 , NPELG ,ELXYZ,SF, DF,W ,DL, BF, CO ,CS, CL ,L1 , 

000762 

009 5 3 

125* 

1 CFRC,NCNT , DEL T ,t,IORDL ) 

000762 

009 59 

126* 


00 190 I=1,NPELG 

001005 

00957 

127* 


NI = NOD ( N , I 1 

001037 

00960 

128* 


PM(I) rVERPRV i NI ,L > 

001040 

0096 1 

129* 


IF (ITER * G T . 1 .OR. N .GE. NEPJ1 GO TO 190 

001064 

00963 

130* 


I F ( L .EO. 3 ) PM (I) =6.0 

001046 

0 09 6 5 

131* 

190 

CONTINUE 

0D1O54 

0 0 9 6 7 

132* 


DO 191 1=1, NPELG 

Q01054 

009 72 

133# 


00 191 J=l, NPELG 

001065 

009 75 

134* 

191 

CL(I>=CLlI)+CO(I,JI*PM<J> 

001065 

00600 

135* 


IF < 9 A S T R N .EG. 0> GO TO 197 

001076 

0 0 5 0 2 

136* 


IF (NSTA3 .NE. 0) GO TO 195 

DO 1 10Q 

00609 

137* 


DO 193 1 = 1 ,NPELG 

001107 

00607 

138* 


N I =NQD ( N , I ) 

001112 

00510 

139* 


IF ( KODE (Nil .LT. 2) GO TO 193 

001114 

0051? 

140# 


00 192 J=l, NPELG 

001127 

00515 

14 1 * 

192 

cs < I ,j>=o.a 

001 127 

00517 

142* 


CS(I, I>=1.0 

001130 

00520 

14 3* 


CL ( I >=VE RPRV INI , 1 1 

001132 

00521 

144* 

193 

CONTINUE 

001141 

005 ? 3 

195* 

195 

CONTINUE 

001141 

00529 

196* 


CALL ELHTRX(CS,CL,NPST,NEMT,NPELG,NOD,N,CO,IBDVT, I BOV ,VBD, NBV ,L,i) 

001141 

00525 

197* 


GO TO 200 

001160 

00526 

198* 

197 

CONTINUE 

001162 

00527 

199* 


DO 198 1=1, NPELG 

001162 

00532 

150* 


NR=NOD IN, I ) 

001175 

00533 

151* 


S ( NR , NBW T ) = S ( NR , NBU T 1 +CL(I) 

001200 

00639 

15 2* 


DO 199 J = l, NPELG 

001205 

00537 

153* 


NC=NOD(N,J)-NR+NHBUT 

001205 

□ 0 59 0 

159* 

198 

S (NR ,NC J =S< NR,NC )*CS C I , J> 

001212 

00593 

155* 

200 

CONTINUE 

001234 

00595 

156* 

250 

CONT INUE 

00 1234 

00596 

157* 


IF (NASTRN .EO. 0) GO TO 280 

001234 

00550 

158* 


RETURN 

001235 

00551 

159* 

280 

IF (L-41292,293,293 

001241 

00559 

160* 

292 

NPQ=NPST , 

U01 244 

00555 

16 1 * 


nnw=NRwT 

001246 

005 56 

162* 


HHBWiNHBUT 

001250 

OOS57 

163* 


60 TO 295 

00 1252 

00560 

169* 

293 

NPO=NPS 

001254 

00561 

165* 


M«W = NP.U 

Oil 1 255 

00562 

166* 



'M 125 7 

00663 

167* 

295 

CUNT INUE 

l/l ! ?t>^ 
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DATE 010976 


0056*) 

1689 


IF ( NSTAB .NE. 0) GO TO 302 

001262 

00566 

1699 


DO 300 1=1, NPO 

001307 

00571 

1709 


IF I K ODE ( I ) .LT. 2) GO TO 300 

001312 

00573 

1719 


DO 298 J=1 , MBU 

001322 

00576 

1729 

298 

S< I, J)=0,0 

001322 

00600 

1739 


S ( I » MH B'W 1=1,0 

001323 

00601 

1749 


S < I » MBW 1 =VERPRV ( I ,L 1 

001325 

00602 

1759 

300 

CONTINUE 

001335 

00604 

1769 

302 

CONTINUE 

001335 

00605 

1779 


IF 1 1 BDVT <L 1 .EQ. 01 GO T0320 

001335 

0 0 b 0 7 

1789 


II=IBDVT(L 1 

001337 

006 10 . 

1799 


DO 310 1=1, II 

001352 

0061 3 

1809 


IE=IBDV(I ,L 1 

001362 

006 14 

1819 


00 305 J = 1 ) M B U 

001363 

006 1 7 

1829 

305 

S ( IE , J ) =0 .0 

001374 

0062 1 

18 39 


S ( IE , MHBW 1 = 1 .0 

001375 

006? 2 

1849 

310 

SHE,MBW)=VBOH,U 

001377 

00624 

1859 

320 

CALL BNDEO(S,NRMAX,NCHAX,NPO,MHBU) 

001403 

00625 

1869 


00 340 I=1,NP0 

001411 

00630 

■ 1879 

34D 

Vf R ( I , L ) =S(I,M8«» 

001427 

006 32 

1889 


RETURN 

001431 

00633 

1899 

. .. 

E NT 

00 1 5’25 


END OF COMPILATION: " N 0 0 1 A G~N 0 s"flC S . 


shog.p- 


ELAG 



" ELAG" - - DAT £~01 0978 

S F 0 R ", S EL A G Vit AG 


USA ,E3 -01/09/78-23;43;36 C 0 . > 


SUBROUTINE ELAGVA ENTRY P0i"nt’00O676 


STORAGE USED : CODE (1) 001016; DATA(D) 0003S£j. ..BL A.NK . COMMON.! 2 1 _0000.0p. 


EXTERNAL REFERENCES (BLOCK, NAME) 

0003 sfcall" 

0004 SFCALQ 

0005 SFCALC 

0006 MATMUL 

0007 INVDET 

0010 NERR2S _ 

0011 NERR3S 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 



0001 


000127 

11 3<3 ... . 

. 0001 


000131. 

117£„. 

..OQOl.. 


.B0Q14fe,.X2fc6 

O0.g.i. 


..QQ0150 

1316. 

OQOl . 


000152 

1346 

*> 

unoi 


000326 

160G 

0001 


000330 

1 64 G 

D001 


000341 

1 72G 

OCOl 


000342 

175G 

0001 


000360 

203G 

i 

0001 


000366 

207G 

0001 


000367 

2 1 2 G 

0001 


000416 

22 1 G 

0 001 


0 D 0 4 2 0 

224 G 

0001 


000421 

2276 

on 

OQOl 


0001)56 

237G 

0001 


000514 

2 47 G 

0001 


000543 

2 54 G 

0 001 


000616 

266G 

0001 


000622 

2 726 

U) 

oooi 


000)70 

SSL 

000 1 


000176 

56L 

0001 


000204 

57L 

o oa i 


00021 1 

58 L 

0000 

R 

000003 

C 


00 00 

R 

000231 

CFT 

0000 

R 

000240 

CNI 

0000 

R 

000230 

CNST 

o coo 

R 

D0024 1 

Cl 

0000 

R 

000242 

C 2 


oqoo 

R 

000227 

OET 

aooo 

R 

000124 

OS 

0000 

R 

000232 

F J 

0 000 

R 

000140 

GAUSS 

0000 

R 

0 002 3 3 

GFOS 


GQUO 

R 

000200 

6J 

0000 

R 

000211 

G JI NV 

0000 

R 

000135 

H 

ooun 

I 

QUC222 

1 

GOOD 

I 

000224 

II 


cqoo 

I 

000236 

IJ 

0000 


000256 

INJP$ 

uooo 

I 

000223 

J 

0 00 0 

I 

000225 

JJ 

GOOD 

I 

000237 

JK 


0000 

I 

0002 3<> 

K 

0000 

I 

000226 

KK 

0000 

I 

000235 

LEE 

ooo a 

P 

000160 

UT 

UOOO 

R 

OflOOOO 

X Y2 























0010 1 

1* 

SUBROUT T NE ELAGVA(NGP,NN r ELXYZ,SF,OF,U,DIS,BF,CD,CS, 


000076 

00101 

2* 

1CSL,LI,CFRC,IDIM,DT,L,I0RD> 


000076 

00103 

3* 

DIMENSION ELXYZ(NN,3),SF(NNl t DF(3*NN),U(3,NN),CD(NN,NN) 

,CS(NN,NN) 

000076 

00103 

q* 

1 ,0IS(Nn t 3),CSLINN),BF(NN,3),CFRC(NN,IDIM,IDIM) 


000076 

001 04 

5* 

DIMENSION XY2(3),C(9,9),DS(3,3),LI<3,3),H(3) 


000076 

00105 

6* 

DIMENSION GAUSS(4,4),WT(4,4),GJ(3,3),GJINV(3»3> 


000076 

00106 

7* 

DATA GAUSS/ 4*0. , 5 77 3 502 7 , . 57735 027 ,2 *0 . T 


DOO 07 6 

00106 

8* 

1 -.77459667,0.1.77459667,0., 


000076 

00106 

9* 

2 ' -. 861 1 3631 ,-.339981 04 , .33998104 , .86113631/ 


000076 

0 0 1 1 0 

10* 

DATA WT/2., 3*0. ,2*1. ,2*0. ,.55555556, .88888889, .555555 56 

, 0 . , 

000076 

D01 10 

11* 

1 .34785485, 2*. 65214515, .34785485/ 


000076 

00112 

12* 

DO 50 1=1, NN 


000076 

001 15 

J 3* 

CSL( I 1=0.0 


000 127 

00116 

14* 

00 50 J~1,NN 


000131 

00121 

15* 

CS(I , J)=0.0 


000131 

00122 

16* 

50 CO (I , J ) =0 .0 


0 U 0 1 31 

uni 2 S 

17* 

00,1 50 11 = 1 , NGP 


OPO l 4 ? 

UCJl 10 

18* 

DO 150 JJ = 1 »NGP 


!U 1 5 2 

001 3 3 

l q* 

DO ISO K K - 1 , N Ci D 


n:u is? 



ELAG 


DATE 010978 


00136 
G0137 
00140 
00 14 1 

00142 

00143 

00144 

00145 

00146 
0 014 7 

00150 

00151 
00152' 

00153 

00154 
0015 5 

00156 

00157 
00162 
00163 
00166 
00171 
00174 
00177 
00202 
Q020S 
00206 
00211 
00214 
00220 
0Q223 
00226 
00231 

00235 

00236 

0024 1 
00242 
» 0?43 
00244 
00246 

0025 1 
00252 

00252 

00253 
00256 
00261 
00265 

00270 

00271 

00274 

00275 

00276 

00277 

00302 

00303 


20 * 
21 * 
22 * 
23* 
24* 
25* 
26* 
27* 
28* 
29 + 
30* 
31* 
32* 
33* 
34* 
35* 
36* 
37* 
38* 
34* 
40* 
4 1 * 
42* 
4 3* 
4 4 * 
45* 
46* 
4 7* 
48* 
49* 
50* 
51* 
52* 
53* 
54* 
55* 
56* 
57* 

58 + 

59 + 
60* 
61* 
62* 
63* 
64* 
65* 
66 * 
67* 
68 * 
69* 
70* 
7 1* 
72* 
73* 
74 + 


XYZ( 1 )=GAUSS< II t NGP ) 

XY2(2)=GAUSSt JJ,NGP) 

XYZ(3)=GAUSS(KK , NGP \ 

GO TO (55,56,57) ,IORO _ 1 

55 CALL SFCALL(XYZ,SF,DF> 

GO, TO 58 _ 

56 CALL SFCALQ UYZ,~SF70F> 

GO TO 58 

"57 CALL SFCALC(XYZ»SF ,DF) 

58 CONTINUE 

CALL MATMUL (OF ,ELXYZ,GJ~, 3 ,NN ,~3 1 ‘ 

CALL INVDET(6J,6JINV,0E T) 

CALL MATMUL (GJINV, OF, W, 3,3, NN) 

CNST:OET*WT(II,NGPl*WT(JJ f NGP>*WT (KK iNGPJ 

CF T -CNST +DT 

FJ=0.0 

GF3 S = O.C ' ' ' 

DO 63 J = l,3 „ 

H(J)=0.3 

00 63 K=l,3 __ 

60 0S( J,K1=0.0 

00 65 I=1,I0IH _ 

DO 65 J = l,I0iH ' 

6 5 C(I,J 1=0.0 

00 72 I - 1 * N N ' 

FJ = FJ+SF(II* 8F(IjU __ 

DO 72 J=1,IDIM 
DO 72 K = 1 , IDI M 

72 CCJ,K>=C(J»K)+CFRCrii'j,K’r*SFlI) “* " 

DO 75 I - 1 , NN i , 

DO 75 J:i|3 " v , 

DO 75 K-1,3 • * 

"75 0 S(J,K 1 = 0 S(J,K)+U TkVi » * of si " 

L E E - L I ( L , L 1 . . '' 

001051=1,3 

IJ=LI(I,I! 

JK = L1(L,I> 

H(I ) :H( I 1'0.50*G (JK jJK l*(OS<L,U+PMI.L»> 

105 GF0b=GF0S- GILEE,IJ1*05(|,U 

00 140 1=1, NN 

CNI = CNST*SF (I) ' " " 

CSL(I1=CSL(I)+CNI*DT*FJ+CFT*GF0S*W (L,I) +CFT*(H(n*W( 1»I> 

1 +H ( 2 ) *U ( 2 , I 1 + H ( 31 *w"Y 3", I 1 V 

DO 140 J=1,NN _ l 

1 40 CO(I,J>=CO<I, J)*CNI*SFtJ> 

150 CONTINUE 

DO 200 1 = 1 , NN ' ' 

CSL(I1=2»50*CSL(I 1 

DO 200 J = 1 , NN " 1 , 

C1=CD(I,J» _ ' 

C2 = 4 . D + CO 1 I , J ) ' ' " ' ' 

CO ( I , J 1 =C2 

200 CSil ,J1 =Ci 

RETURN __ _ 

’ E Nil ' ' 


000152 
000153 
000155 
000157 
000170 
000174 
000176 
000202 
000204 
000211 
000211 
000220 
000225 
000235 
000242 
000244 
000245 
000326 
000326 
000330 
000330 
000342 
000342 
OOQ342 
000360 
000360 
000367 
000367 
000367 
000421 
000421 
000421 
000421 
000440 
000456 
0Q0456 
0004 57 

000461 
000471 
000500 
000514 
000516 
'000516 
000543 
000543 
000565 
000565 
000616 
000622' 
000622 
000623 
000625 
000626 
00064 1 
U01Q15 



-55 


ELAG 


DATE 01097,8 


SHDG.P 


> 


END OF COMPILATION! NO 

ELCA 


DIAGNOSTICS. 



ORIGINAL PAGE IS 
OF POOR QUALiTy 


ELCA 


DATE 010978 


aFOR.S ELCA, ELCA' 

HSA E3. T 01/Q.9/78- 2 3:4 3 : 3 ?_t 0.^1 


SUBROUTINE ELCELA ENTRY POINT 001111 


STORAGE USED: CODE < 1 1 „.QQ 1 24 4 ; „0 AT A_( QL. 00 QiLl 9Li_J&i,ANK COHHON(g) OOOD 0 a 


EXTERNAL REFERENCES ( B LOCK , NAME) 


> 

i 

Ln 

O 


0003 

SFC ALL 

0004 

SFCALQ 

0005 

SF CALC 

0006 

MATMUL 

0007 

INVDET 

0010 

NERR2 J 

0D11 

NERR3S 


STORAGE 

ASSIGNMENT 

C001 


0001 36 

1 1 3G 

0001 


000163 

1 34 G 

0002 


000407 

207G 

0001 


000470 

235G 

uooi 


000572 

271G 

0001 


000743 

327G 

00 01 


000217 

5 7 L 

0000 

R 

000260 

CNST 

cooo 

R 

000025 

DOM 

0000 

R 

(100230 

GU 

0000 

I 

000267 

IJ 

0000 

I 

000256 

KK 

0000 

R 

000210 

WT 


00101 

1* 

00101 

2* 

00103 

3* 

00103 

4* 

00103 

5* 

00104 

6* 

00104 

' 7* 

00105 

8* 

00106 

9* 

00106 

10* 

00106 

11* 

00110 

12* 

00110 

13* 

00112 

14* 

00115 

15* 

00116 

16* 


iLOCK , TYPE 

, RELATIVE .LOCATION,.. 

NAME) 





■ « 

— 

— - - 

* 

- 


- 

0001 


000140 

J I7G 

0001 


000660 

1 20L 

0 001 


000155 1260 

0001 


000160 

1 3 1 G 

0001 


000347 

1 60 G 

0001 


000353 

1 6 6 G 

0 00 1 


000366 

176G 

0001 


000367 

201G 

0001 


D00416 

2 1 3 G 

0001 


000427 

220G 

0 001 


000465 

227G 

0001 


000467 

2326 

0001 


000522 

246G 

0001 


000524 

251G 

0 00 1 


00052S 

254 G 

oooi 


000555 

264G 

0001 


000621 

300 G 

0001 


000622 

303G 

0 001 


000652 

3 1 4 G 

oooi 


000712 

322G 

0001 


001032 

3 4 2 G 

0001 


001033 

34 5 G 

0 001 


000203 

55 L 

oooi 


000211 

56L 

0001 


000224 

58L 

0000 

R 

000047 

C 

onoo 

R 

000261 

CFT 

0000 

R 

000270 

CNI 

0000 

R 

000271 

Cl 

O0DO 

R 

000272 

C 2 

0 00 0 

R 

000257 

DET 

dood 

R 

000265 

DIV 

0000 

R 

000036 

DV 

0000 

R 

000262 

FJ 

0 000 

R 

000170 

GAUSS 

oood 

R 

000263 

GFOS 

0000 

f? 

00024 1 

6JINV 

0000 

R 

0000 1 7 

H 

0 00 0 

I 

000252 

I 

0000 

I 

000254 

II 

0000 


000306 

INJPS 

0000 

i 

000253 

J 

0 000 

I 

000255 

JJ 

oood 

I 

000264 

K 

0000 

I 

000266 

LEE 

0000 

R 

000022 

OM 

0 000 

R 

000006 

S 

0000 

R 

000003 

V 

0000 

R_ 

OOODOO 

XYZ 














SUBROUTINE EL CEL A I NGP , NN , ELX YZ , SF , OF , W , VEL, OHE , F JCB', S TR ,CD , CS , 
JCSL,LI,CFRC,I0IH,DT,L1 ,L2,I0RD) 

D IME NS I ON EL XYZ INN,3 ) , SFtNN) , DF < 3 ,N N) ,'w't 3,NN)»CD<NN,NN),CS(N~N,NN)‘ 
1 ,STR(NN,3,3) ,CSL(NN1 , F JC8 t NN ) , VEL ( NN , 3 ) ,OME f NN,_3 ) _ 

2 ' , CFRC<NN, IOIM.IDIM) ' ’’ "" “ *. 

DIMENSION XYZ ( 3 I ,V< 3) ,S(3,3) , H t 3 > ,0M( 3) , DOM (3, 3 ) ,0V t 3 ,3 1 ,LI<3,3> 

1 , C ( 9 ,9 ) * “ 

DIMENSION GAUSS (4,4 » ,WT.(4 ,4) ,GJ(3,3) ,GJINV(3,3> •* 

"DATA GAUSS/4*0 r,"- • 5 7735027 , ,577 35027 ,2*0,7 r ‘ 

1 -.77459667,0., .77459667,0., 

2 -.86113631, -.33998104, .33998104, .86113631/ 

DATA WT/2., 3*0. ,2*1. ,2*0. ,.55555556, .98888889, .555555 56,0., 

1 .3478548S,2*.65214S15,. 34785485/ 

DO. 50 1 = 1 , NN 

CSL <11=0.0 ----- 

0 0 50 J=1,N*V 


000077 
000077 
000077 
000077 _ 

000077 

000077 

000077 

000077 

000077* 

■' 000077 

000077 " 

U00D77 

000077 

000077 

■■ lino 136 
[i nil ‘in 



-57 


ELC A 


DATE 010978 


00121 

17* 

CSlIfJ)=0.0 

000160 


00122 

18* 

50 COU, 01 = 0.0 

Q00160 


001 25 

19* 

00 150 11=1, NGP 

DD0163 


00130 

20 * 

DO }50 JJ= 1 , NGP 

000163 


00 133 

21 * 

DO 150 KK=1,NGP 

000163 


00136 

22 * 

XYZ( 1 l-GAUSS (II , NGP ) 

000163 


00137 

23* 

XYZ (2) =GAUSS l JJ.NGP) 

000166 


00140 

26* 

X YZ < 3 1 =0 AUSS ( KK , NGP 1 

000167 


00 16 1 

25* 

GO TO ( 55,56,57 1 ,IORO 

000172 


00162 

26* 

55 CALL SFCAIL (XYZ,SF,DF) 

000203 


00163 

27* 

GO TO 58 

000207 


0 016 6 

28* 

56 CALL SFCALQ (XYZ ,SF ,DF 1 

000211 


0 0 16b 

29* 

GO TO 58 

000215 


0016 6 

30* 

57 CALL SFCALC (XYZ»SF ,DF 1 

000217 


00167 

3 1* 

58 CONTINUE 

000226 


0 015 0 

32* 

CALL MATHUL < D F , E L X Y Z , G J , 3 , NN , 3 C 

000226 


0 015 1 

33* 

CALL INVDET (GJ,GJINV*DET) 

000233 


0 0 15 2 

36* 

CALL HATMUL ( G J I N V , D F , W , 3 ,3,NN> 

000260 


00153 

35* 

CNS'T = OE T*WT(1I ,NGP )*WT ( JJ,NGP) *WT(KK ,NGP> 

000250 


00156 

36* 

CFT=CNST*DT 

000257 


00 155 

37* 

FJzO.O 

00026 1 


00156 

38* 

gfd $= 0.0 _ •_ _ „ .. . 

000762 


00157 

39* 

DO 63 J = 1 , 3 

000347 


00162 

6 0 * 

OH ( J ) =0 .0 

000367 


00163 

6 1 * 

V ( J 1 =D . 0 

000367 


00166 

62* 

HI JJ-0.0 

000350 


00165 

63* 

00 60 K = 1 , 3 

000353 


00170 

66 * 

OOM( J,K ) :0.0 

000353 


001 71 

65* 

S ( J,K 1 =0.0 

000353 


00172 

6 6 * 

60 DV(J,KI=0.0 

000356 


00175 

6 7* 

DO 65 I=1,IDIM 

000367 


0(1200 

6 8 * 

DO 65 J = 1 , I D I H 

000367 


00203 

49* 

65 C ( I , J ) = 0 . □ 

000367 


00206 

50* • 

DO 70 I A 1 , NN 

0006 07' 


00211 

51* 

FJ-FJ+SFI I ) #F JCB ( I ) 

000607 


0021 2 

52* 

DO 70 J=1 , 3 

000616 


00215 

53* 

0 M< J)=OH ( JJ *SF( n*OHE (I ,J ) 

0006 i 6 


0021 6 

56* 

V ( J)=V ( J) + SF (I >*VEL ( I ,0) . ... 

000621 


0021 7 

55* 

00 70 K A 1 , 3 

000627 


00222 

56* 

70 S(J,K)=S(J,KI+SF(I)* 6 T(?(I,J,K> 

000627 


00226 

57* 

00 72 1=1, NN 

000670 


00231 

58* 

' DO 72 J=1.IDIM 

000670 


002 36 

59* 

DO 72 K=l,IDIh 

000670 


00237 

6 0* 

72 C ( J,K > =C ( J,K 1 +CFRC( I , J,K 1*SF (I ) 

000670 


00263 

61* 

cft=cft*fj 

0005 10 


00266 

62* 

D I V = U.O 

□ 005 1 3 


00265 

63* 

DO 75 1=1, NN 

000525 


00250 

64* 

00 75 J:l,3 

000525 


00253 

65* 

DO 75 K = 1 , 3 * T~ 

000525 


00256 

66 * 

00M( J,K )=DOM ( J,K 1 *U (K ,1 )*OHE (I ,J) 

000525 


0025 7 

67* 

75 OV(J,K)-OV(J,K)*w(K,II*VEL(I,J) 

000530 


00263 

68 * 

DO 78 J- 1 , 3 

000555 


00266 

69* 

78 Div:liiv + D 0 M( J,J) 

U0D555 


00270 

70* 

00 100 Jr i , 3 ■ . 

00057? 


U02 7 3 

71* 

GFOS-G 1-06-0.50*5 (1. 1 , J 1 * ( DV < J ,L 2 ) -DV ( L2 , J ) )♦ 

(j(3u5 7 2 


002 7 3 

72* 

1 C).bn «6 ( J,L2) * (OV('C 1 ,‘J>-fJV( J ,L1 ) » 

000572 




ELCA 


DATE 010970 


00274 

73* 

00276 

74* 

00277 

75* 

00302 

76* 

00305 

77* 

00306 

70* 

00311 

7 9* 

00313 

60* 

00316 

8 1* 

00320 

82* 

00321 

8 3* 

00324 

84* 

UO 325 

65* 

00326 

86* 

00 33 1 

87* 

0 0 3 31 

88* 

003 32 

89* 

00335 

90* 

0034 1 

91* 

00344 

92* 

00347 

9 3* 

00350 

94 * 

00351 

95* 

00362 

96* 

00355 

97* 

00356 

9 8* 


ENO OF 


100 CONTINUE 

LE£=LI t L 1_» L- ?.* 

DO 105 1=1,3 

DO 105 J=1 ,3.. 

IU=LI< I ,J( 

JO S GFOS -GF OS ♦0. 50»C(LEE. I J ) » ( DV ( I , J MDV ( J ,1 ) 1 

IF ( L 1 ,NE. L2 ) GO TO 120 , 

DO 110 1 = 1 ,3 _ 

'no GFOS=GF0S-0.333333‘33*C(LEE,~I)'FDIv' * ' 

120 CONTINUC _ 4_ _ „ 

DO 140 1 = 1 ,NN " 

CNI=CNST*SF <I)*FJ _ _ _ 

C$Lm=CSL<I)+CNI*6f*GF0S 

DO 140 J=1,NN _ _ __ _ _ 

C S U , J 1 =CS < I , J) +CF T* ( W < 1 , 1 1 *0M <11 +W < Z~,l i»OH ( 2 ) ♦ wll, 1 1 *0H" ( 3 1 > *SF < J 1 
1 +CNI*DT*DIV*SF ( J» _ 

140 C0(I ,J)=CO(I,J)+CNI*SF(J> ' 

150. CONTINUE / . 

DO 2 00 1 = 1 ,‘nn 
DO 200 J=1,NN 

Cl=CDtl,JI-0.33333333’»CS(Ii,Jl 
C2=CD l I , J 1 +0 .66666667*CS C I , J) 

COtl ,J1=C? 

200 CS(I f J)=Cl 

RF TURN 

end 


COMPILATION: NO DIAGNOSTICS^ 


000607 

000607.. 

000611 

000622 

000622 

000623 

000644 

000652 

000652 

000660 

00D660 

000723 

000727 

000743 

000743 

000743 

00Q7S1 

001002 

001002 

001033 

001033 

001036 

001042 

001043 

001054 

001243 


3 H 0 G t P 


ELCD 


"EL CD ' ~ 7 ~ " 0 ATE " 010978 

BP OR 7s ELCD,"E LCD 

HSA . E 3 -01/09/78-23;4?;42_ (0,1 I 


SUBROUTINE ELCELD ENTRY POINT 00052? 


STORAGE USED: CODE ( 1 >. 0006 36 ; OAT A IQ ) QQ020.1} BLANK COMMON (?) .OOOOQQ. 


EXTERNAL REFERENCES (BLOCK, NAME > 


0003 

0004 

0005 

0006 
0007 
00 10 

SF CALL 
SFCALC 
SFCALC 
MATMUL 
INVOET 
NERR2I 

- 

- 

— 

■ 



- - — - 

.. .. 

'uo 11 

NERR35 








STORAGE ASSIGNMENT . 

(ELOCK, T.VPe, RELATIVE LOCATION, NAME) __ .. 

. — 


- - 

, - 


0001 

000061 

11 3G 

. ..... DQ01 .. 0D0063 .1 17G. DQQL ... 00007.4. 125G_ 

. _D QQ 1 

.000077 

130 G 

.. ..QQ01_._ 0Q01Q2 

1 33G . 

0001 

000235 

1 56G 

0001 000256 1 64 G 0001 000264 170G 

0 001 

000332 

20 1 G 

0001 000362 

2066 

0001 

000452 

221G 

0001 000453 224 G 0001 000122 55L. 

0 00 1 

000130 

56L 

0001 000136 

57L 

0001 

000143 

5SL 

0000 R 000104 Cl 0000 R 000101 CNST 

0000 R 

000105 

Cl 

ODOO R 000106 

C2 

0000 

R ODCllOO 

OET 

0000 R 000103 D 1 V 0000 R 000102 FJ 

onoo r 

000011 

GAUSS 

OOOO R 000051 

GO 

0000 

R 000062 

GUI NV 

0000 I 000073 I 0000 I 000075 II 

0 00 0 

000114 

INJPS 

0000 I 000074 

J 

0000 

I 000076 

JJ 

0000 I 000077 KK 0000 R 000006 OM 

. C 00 0 R 

000003 

V 

__OOQO R 000031 

WT 

0000 

R 000000 

XYZ 

- 

• •* 





00101 

1* 


SUBROUTINE E LCE L D t N GP , NN , ELX Y2 , SF , DF , V , VE L , OME , 

FJCB ,C 0, CS, 


* 

000037 


00101 

2* 


1CSL,DT,L,I0RD> 




o n o o 3 7 


00103 

3* 


DIMENSION ELXY2(NN,3),SF(NNl,DF(3,NN),W(3,NN)fCD<NN f NN) f CSL(NN), 


U00037 


00103 

4 * 


1 VCL (NN, 1 ) ,flME (NN, 1 ) , P JCB ( NN » , C S ( NN , NN ) 




000037 


00104 

5* 


OIMENSION XYZ(3) t V(3),0M(3) 

• 



000037 


00105 

6 $ 


DIMENSION GAUSS(4,4 1 ,WT (4 ,4 ) ,GU(3,3) , G JINV 1 3, 3( 




000037 


00106 

7* 


OATA GAUSS/4*0.,-, 5773 50 2 7,. 57735327, 2*0., 




000037 


00106 

8* 


1 -.77459667,0. ,.77459667,0., 




000037 


00106 

9* 


2 -.661 13631 ,-.3399 61 D4, .3 39981 D4 , .861 13 631/ 



000037 


00110 

10* 


DATA UT/2., 3*0. ,2*1. ,2*0. ,.5555 55 56, .88888889,. 

555555 56,0. 

t 


000037 


00110 

1 1* 


1 .34 78 54 85, 2*. 652 1451 5,. 34 78 5485/ 




000037 


00112 

12* 


DO SO 1=1, NN 




000037 


001 1 s 

13* 


CSL ( I 1 =3 .3 




00 0 D6 i 


00116 

14* 


DO 50 J = 1 ,NN 

* 



000063 


00121 

15* 

50 

CD ( I , J 1 =0.0 




000063 


0U1 24 

16* 


DO 150 11=1, NGP 




00010? 


00127 

17* 


DO 1 50 JJ = 1 ,NGP 




00010? 


001 32 

18* 


DO 150 K K = 1 , N G P 




000 102 


00135 

19* 


XY?( l)=GAI15b ( TI.NGPl 




00010? 


UO 1 36 

20* 


X YZ ( 2 ) tbMIbS ( Jj.NGP F * 




'0 HI 1 UJ 


001 37 

21* 


XYZ ( 5) : GAUSS (KK ,NGP ) 




000 1 r,6 




ELCO 


DATE □ 10978 


oai4a 

22 * 


GO TO 155,56,57) ,IORD 

000111 

00141 

23* 

55 

CALL SFCALL(XYZ,SF,DF) 

000122 

00142 

24* 


GO fo 58 

000126 

00143 

25* 

56 

CALL SFCALQIXYZ.SF.OF) 

000130 

0014H 

26* 


GO TO 58 

000134 

00145 

27* 

57 

CALL SFCALCIXYZ.SF.OF 1 

000136 

00146 

28* 

58 

.CONTINUE 

000143 

00147 

29* 


CALL HATMULIDF ,ELXYZ,GJ,3»NN,3) 

000143 

00150 

30* 


CALL INVDET (GO , G JINV ,DET 1 

000152 

□ 0 1 5 1 

31* 


CALL MATMUL1GJINV,0F,W,3,3,NN> 

000157 

00152 

32* 


CNST=0ET*WT1II ,NGP)*WT ( J J ,NGP ) *UT 1 KK , NGP 1 

000167 

00153 

33* 


F J -0 . 0 

000176 

00 154 

34* 


0 I !/ -G . 0 

000177 

001 55 

35* 


00 60 1-1,3 

000235 

00160 

. 36* 


V ( I 1 :o • 3 

000235 

00161 

37* 

60 

0X111=0.0 

000235 

0016 3 

38* 


00 100 1=1, NN 

000256 

00166 

39* 


FJ=FJ+FJCB(I1*SF(I) 

000256 

00167 

40* 


DO 130 J = 1 , 3 

000264 

UtJl 7 2 

4 1* 


V(J) = V(J)*VEL(I,J)*SF(It 

000264 

00173 

42* 


Oil/ — D I V + OHE ( I , J ) *U ( J , I 1 ' 

000267 

00174 

43* 

100 

OM(J!=OM(J)+OME1I,J)*SF<I> 

000273 

00177 

44* 


CNST=CNST*FJ 

000312 

00200 

45* 


00 120 1=1, NN 

D00332 

00203 

46* 


C I =C NS T*SF 1 r 1 

000344 

00204 

47* 


CSL t 1 > =CSL t T 1 + CI* IML) *DT 

000347 

00205 

48* 


DO 120 J=1,NN 

0QQ362 

Q 0 2 1 0 

4 9* 


C S 1 1 , J) =CS ( I ,J 1 +CNST*(OM( 1 )*W( 1 ,1 )+0H(2l*W(2,I> ♦0M13) *W(3, I 1 1 

000362 

00210 

5n* 


1 *DT*SF (J)+CI*DIV*SF ( J ) *DT 

000362 

0021 1 

51* 

120 

CD(T,J)=CDII,J1+CI*SF1J) 

000371 

002 14 

52* 

150 

CONTINUE 

000422 

00220 

53* 

DO 200 1=1 ,NN 

000422 

01) 2 2 3 

54* 


00 200 J= 1 , NN 

0004 5 3 

00226 

55* 


Cl =C 0(1, Jl-0. 3333333 *CS(I,J1 

000453 

00227 

56* 


C2 =CD( I , J 1 +0. 666666 7*CS( I , J) 

000456 

002 30 

57* 


COl! , J 1 =C? 

000462 

00231 

58* 

200 

csn,j)=ci 

000463 

002 34 

59* 


RETURN 

000474 

002 3b 

bfl* 


e-no 

000635 


E_NO OF COHF_IL_ATION s NO DIAGNOSTICS. 


SHOG.P ELC V 



ELC V 


DATE 010978 


a>0R,s~ "elcv.elcv" 

HSA E 3 -01/09/78-23:43:45..<_0,l 


SUBROUTINE ELCELV ENTRY POINT 001031 


STORAGE USED: C0DE<1) 001165; DATA < 0 > 000250 ; BLANK ..COMMON < 2).. OOOOOO. 


EXTERNAL REFERENCES (BLOCK, NAME) 


0003 SFC ALL 

0009 SFCALQ 

0005 SFC ALC 

0006 MATMUL 

0007 INVUET 

0010 NFRR2S 
'0011 NERR3S 


STORAGE ASSIGNMENT (BLOCK, TYPE., .REL ATI VE_ _LOC A.J I ON , _N AME )_ 


> 

l 

O' 


cool 


00056 5 

I00l_ . 

. OOOj 


_Q0QQ75 

1 1 3G 

- ..0001 


000077 

.11 76 „ 

0 00 1 


-900114. 

J26G 

0001 


000117 

1 3 1 G 

U0Q1 


000122 

1 39 G 

0001 


000264 

1 60 G 

0001 


000270 

1666 

0 001 


000313 

1 76G 

0001 


000322 

2Q2G 

0001 


000333 

2 0 7 G 

0001 


000374 

220G. 

0001 


000376 

223G 

0 001 


000377 

226G 

0001 


0Q0427 

236G 

0001 


000935 

243G 

000 1 


000462 

253G 

0001 


000473 

260G 

0 001 


000527 

266G 

0001 


000530 

2 7 1 G 

■ 0001 


000551 

2 77G 

0001 


000553 

302G 

0001 


000622 

31 1G 

0 001 


000645 

315G 

0001 


000663 

323G 

0001 


000753 

336G 

0001 


000754 

3 4 1 G 

0001 


000142 

5 5 L 

0 00 1 


000150 

56L 

0001 


000156 

57L 

0001 


000163 

58L 

0001 


000500 

9 OL 

0000 

R 

000140 

CFT 

0 00 0 

R 

000145 

CNI 

0000 

R 

000137 

CNST 

0000 

R 

0001 9 6 

Cl 

0000 

R 

00014 7 

C 2 

0000 

R 

000136 

DET 

0 00 0 

R 

000144 

DIV 

0000 

R 

000025 

DOM 

uooo 

R 

000036 

UV 

0000 

R 

000141 

FJ 

0000 

R 

000047 

GAUSS 

onoo 

R 

000142 

GFOS 

0000 

R 

000107 

GJ 

0000 

K 

000120 

GJINV 

0000 

R 

000017 

H 

0000 

I 

000131 

I 

0 000 

I 

000133 

11 

0000 


000160 

INJPJ 

oooo 

I 

000 132 

J 

0000 

I 

000134 

JJ 

0000 

I 

000143 

K 

0 00 0 

I 

000135 

KK 

0000 

R 

000022 

OM 

0000 

R 

000006 

S 

0000 

R 

000003 

V 

oouo 

R 

000067 

NT 

0 000 

R 

000000 

XY2 





. 








- - 

.. 





• 




- 









. .. 


00101 

1 + 

SUBROUTINE ELCELU(NGP,NNiELXY2,SF,0F,W,VEL,0ME,FJCB,BF,STR,CU, 

000044 


□ 0101 

2* 

1CS,CSL,IU,DT,L1,I0RD) 

000044 


00103 

3 * 

DIMENSION ELX YZ ( NN, 3 1 ,SF <NN ) ,DF ( 3 ,NN ) ,W ( 3,NN ) ,CD(NN ,N N) , CS (NN,NN) 

000044 


00103 

4* 

1,STR(NN,3,3) ,CSL(NN> ,BF(NN, 3‘) , VEL (NN , 5 > ,0ME(NN,3> ,FJCB(NN) 

000044 


00104 

5* 

DIMENSION XYZ (3 ) ,V(3 ) ,S(3 ,3) ,H ( 3 > ,0M (31 ,OOM ( 3 , 3 ) , DIM 3 ,3 > 

000044 


00105 

6* 

DIMENSION G AUSS ( 4 ,4 ) ,UT(4 ,4 ) ,GJ (3 ,3 ) ,GJINV( 3, 3) 

000044 


00106 

7* 

DATA 6AUSS/4*0.,-. 57735 02 7,. 57735027, 2*0., 

000D44 


00 106 

8* 

1 - .77459667,0. ,.77459667,0., 

000044 


00106 

9 * 

2 -.861 136 31 , -.3 399 8104 , . 3 3 998 1 04 , . 8 6 1 1'36 3 1 / 

000044 


00110 

10* 

DATA UT/2., 3* 0. ,2*1 . ,2*0. , .55555556, . 88 88 8 8 8 9 55^55 55 56,0. , 

000044 


00110 

11* 

1 .34765465, 2*. 65214515,. 34785485/ 

000044 


00112 

12* 

00 50 I = 1 , NN 

000044 


00115 

13* 

CSL ( I ) =0.0 

OOIJO 75 


00116 

14* 

DO 60 J - 1 , NN 

000077 


00121 

15* 

C 5 ( I , J) ■ 0 . 0 

cm 7 7 


00122 

! 6* 

50 CU(1 , J ) * U . 0 

n.'oo n 


00125 

17* 

DO 150 I 1 ’ 1 ,N(,P 

L. Ill 1 22 




ELCV 


DATE 010978 


00130 

18* 


DO 150 JJ-l.NGP 

000122 

00133 

19* 


DO 150 KK=1,NGP 

000122 

00136 

20* 


XYZ(1)=GAUSS<II,NGP> 

000122 

00137 

21* 


XYZ(2I=GAUSS(JJ,NGP) 

000123 

ooi4Q 

22* 


XY 21 31=GAUSS(KK,NGP) 

000126 

00 1 'l 1 

23* 


GO TO (55,56,57) , IORO 

000131 

00142 

24* 

55 

CALL SFCALL(XYZ,SF,DF) 

000142 

00143 

2S* 


GO TO 58 

000146 

00144 

26* 

56 

CALL SFCALO ( X YZ, SF ,DF ) 

000150 

00145 

27* 


GO TO 58 

000154 

00146 

28* 

57 

CALL SFCALC (XYZ , SF ,0F 1 

00D156 

00147 

29* 

58 

CONTINUE 

000163 

001S0 

30* 


CALL MATHUL(0F,ELXYZ,GJ,3,NN,3) 

000163 

0015 1 

31 * 


CALL INVDET tGJ,GJINV,DET) 

000172 

00152 

32* 


CALL MATHUL(GJINV,DF ,W,3»3,NN> 

000177 

00153 

33* 


CNST=0ET*UT<II,NGP>*WT(JJ,NGP>*UT(KK,N6P> 

000207 

00154 

34* 


CFT=CNST*OT 

000216 

00155 

35* 


F J-0 • 0 

000220 

00156 

36* 


GF3S=0.0 

000221 

00157 

37* 


00 63 J - 1 , 3 

000264 

001 62 

38* 


OHIJUO.O 

000264 

00165 

39* 


V( J)=0.0 

000264 

00164 

40* 


H(J)=0.0 

000265 

00165 

4 1* 


DO 60 K - 1 » 3 

000270 

00170 

42* 


D OH ( J , K 1=0.0 

000270 

0017 1 

4 3* 


S< J»K>=0.0 

000270 

00172 

44* 

60 

D V ( J , K J =0 . 0 . 

000271 

00175 

45* 


00 70 1=1, NN 

000313 

00200 

46* 


FJ=FJ+SF <I)*F jCB(i) 

000313 

00201 

4 7* 


00 70 J=1 , 3 

000322 

0020 4 

48* 


OH(J)rOM(J)+SFil)*OHE(i,di 

000322 

00205 

49* 


V(J)=V(J)*SF(Il*UELtI*J> 

000325 

00206 

50* 


00 70 K=1 ,3 

000333 

0021 1 

5 1 * 

70 

S(J,K)=S(J,K)+SF(I) *STRX I , J,K) 

000333 

00215 

52* 


CFT=CFT*FJ 

000362 

00216 

53* 


DTV=0.0 

000365 

00217 

54* 


00 75 1=1, NN 

000377 

00222 
0022 5 

5S* 


DO 75 J= 1 , 3 . ... 

DO 73 KSl , 3 ‘ 

000377 

000377 

00230 

57* 


DOH(J,K)=DOM(J,K)+W(K,I >*OME (I ,J) 

000377 

00231 

58* 

75 

DV(J,K)=OV(J,K )+U(K ,I)*VEL(I,J) 

000402 

00235 

59* 


DO 78 J=1 ,3 

Q00427 

.00240 

60* 

78 

DIV=DIV+DOM(J,J) 

000427 

00242 

61* 


DO 81 J=1 , 3 

000435 

00245 

62* 

81 

0 IV = DIV-DV ( J, J) 

000435 

00247 

63* 


I F ( L 1 -4 185 ,90,100 

000440 

00252 

64* 

85 

DO 88 1=1, NN 

000444 

00255 

65* 

88 

GFOS=GFOS+SF (I) *BF C I ,L1 1 

000462 

00257 

66* 


DO 69 K=1 ,3 ‘ 

000473 

00262 

67* 

89 

H(K1=H(K1-S(L1,K) 

000473 

00264 

68* 


GO TO IDO 

000476 

00265 

69* 

90 

DO 9b 1=1, NN 

000500 

00270 

70* 


00 95 J = 1 , 3 

000530 

00273 

71* 

95 

UF()S=ur!)b + SMI)*BFII,J»*VEL(I,J> 

000530 

00276 

72* 


DO 9 6 ,1=1,3 

U 0055 3 

OlllOl 

73* 


0 0 9 6 K = 1 , 3 

GOO 5 5 3 



-63 


ELCV 


DATE 010978 


00308 

78* 

• 96 

HIK)=H(K>-S(J»K1*V(J1 

000553 

□ 0307 

75* 

100 

CONTINUE 

000565 

00310 

76* 


DO 120 1=1, NN 

000565 

0031 3 

77* 


CN1 = SF ( I 1*CNST*FJ_ . 

.. 000633 

00318 

78* 


DO 110 J=1 , 3 

000637 

0031 7 

79* 

110 

CSL(l>=CSLfI>+CFT*U(J.II*HCJl 

000685 

00321 

80* 


CSL ( I ) =CSL ( I ) +CNl*GFoS*OT 

000652 

00322 

8 1 * 


DO 120 J=1 , NN 

000663 

00325 

• 82* 


CS(I,J)=CStI,J)+CFT*(W(l, 1 1 *0M ll)+U(2,Il*0Mt2)+U(3,I) *OMI^ ).)* 

000663 

00325 

83* 


1 5F I U) +CNI*DT*DI V*SF l J) 

000663 

0U326 

88 # 

120 

CD<I,J>=C0(I,J)+CNI*SF(J1 

000671 

0033 1 

85* 

150 

CONTINUE 

000723 

00335 

86* 


DO 200 1=1, NN 

000723 

00 3 8 D 

87* 


DO 200 J=1 , NN 

000758 

00383 

88* 


Cl=C0(I,J)-0.33333333*CS(I t J) 

000758 

00388 

89* 


C2=C0( I ,J) +0.66666667*CS( I,J) 

000757 

00385 

9n* 


CD ( I , J 1 =C2 

000763 

00 386 

9 1 * 

200 

cs ( r , J 1 =C1 

000768 

00351 

92* 

300 

HE TURN 

000775 

0 0 3 5 2 

9 3* 


END _ _ 

001168 


END OF COMPILATION: NO DIAGNOSTICS. 


3 HDG |P ELGD 


9 $' 

L & t 


£5 ft. 


■© i. 

j? >*• 

i***. 



-64 


DATE 010978 


ELGD 


SFOfi , S ELGD , EL GO 
H S A E 3 -01/09 / 7 8 r? 3. :_4 3 :4 8 (0 .) 


SUBROUTINE ELDISa' "ENTRY POINT 001041 


STORAGE USED:, CODEJ.,1,) , 00 1 164 A.TA (01 000401 : B LANK C0H H0N(2> 000 000 


EXTERNAL REFERENCES (BLOCK, NAME 1 


0003 

0004 

0005 

0006 
0007 
0010 


SF CALL 
SFCALO 
SFCALC 
MATMUL 
TNVOET 
NERR2S 

- 


— 

— 









* 


— 






... 







■ 












0011 


NERR31 


















STORAGE 

ASSIGNMENT 

(BLOCK, TYPE 

., RELATIVE.. 

LOCATION , NAME )_ 







. 

. ... w. „ 


0001 


000145 

1 1 3G 

0001 


000147 

117G 

0001 


000165 

126G 

0 001 


000170 

1 3 1 G 

0001 


000173 

1 34 G 

0001 


000374 

1 6 1 G 

QQQ1 


000377 

166G 

0001 


000410 

174G 

0 001 


000411 

177G 

0001 


0004.30 

205G 

0001 


000443 

2126 

0001 


000450 

216G 

0001 


000513 

226G 

0 001 


000515 

2316 

0001 


000516 

234G 

0001 


000552 

244G 

0001 


000612 

254G 

0001 


000643 

26 1 G 

0 001 


000646 

2646 

0001 


000753 

301G 

0001 


000760 

3 0 5 G 

0001 


000214 

55L 

□ 001 


000222 

56L 

0 001 


000230 

57L 

□ 001 

• 

000235 

58 L 

uooo 

R 

000006 

C 

GOOD 

R 

000234 

CFT 

0000 

R 

000244 

CNI 

0 000 

R 

000233 

CNST 

OODO 

R 

000245 

Cl 

uooo 

R 

000246 

C2 

0000 

R 

000232 

DEI 

0000 

R 

000127 

OS 

0 00 0 

R 

000236 

FJ 

0000 

R 

000143 

GAUSS 

uooo 

R 

000237 

GFOS 

ODOO 

R 

000203 

GJ 

0000 

R 

000214 

GJINV 

0 000 

R 

000140 

H 

0000 

I 

000225 

I 

uooo 

I 

000227 

I I 

0000 

I 

000242 

I J 

0000 


000266 

INJP$ 

0 000 

I 

000226 

J 

0000 

I ■ 

000230 

JJ 

oooc 

I 

000243 

JK 

0000 

I 

0002 4 U 

K 

OODO 

I 

000231 

KK 

0 000 

I 

000241 

LEE 

0000 

R 

000235 

RHO 

CO 00 

R 

000003 

V 

0000 

R 

000163 

UT 

oofcio 

R 

000000 

XYZ 

— - 









00101 1* bUBB OU TINE ELBiSA (NGP,N«, ELXY2.SF, OF, W, BIS, VEL.BF, £B,e$, ' 000103 

00101 2* 1CSL,LI,CFRC,IDIH,DT,L,I0RD1- _ 000103 

00103 3* ' DIMENSION ELXY2(NN, 3) i'SF(NN) ,DF(3,NN) ,W(3 f 'NN) ;CO"(NNiNN) ,'CS'(NN,NN) " "000103 

00103 4* 1 ,VEL (NN,5 ) , CSL (NN 1 ,BF(NN,3 1 ,OIS (NN , 31 000103 

00103 5 * " " ~2 ", CFRC ( NN^ I D IM , IDI M ) ” ' ‘ 'OOqiO'3' 

00104 6* DIMENSION X Y 2 ( 3 1 , V ( 3 ) , C < 9 , 9 ) , L I ( 3 , 3 1 , DS ( 3 , 3 1 , H ( 3 ) 000103 

00105 7 * DIMENSION G AUSS ( 4 ,4 J T.( 4 , 4 1 , G J ( 3 , 3 1 , G Jl N V ( 3 ,"'3 " ~ ” ~ ‘ 000,103 

00106 B + DATA GAUSS/4 + 0, ,-.57735027, .57735327,2*0, , 000103 

00106 ' 9* " 1 -.77459667,0. ,,77459667,0., ’ ~ ™" ~ 000103" 

00106 _ 10+ 2 -.861 13631 ,-.33998104 , .33998104 , .861 1*3631/ 000103 

00110' "'ll* — "DATA" WT/2." , 3+ 0 ., 2+1 . , 2 + 0. , .55555556", 888 8 388$ 55555556 ,0. ,~ ~‘000il03 

00110 12+ 1 .34785485,2+. 65214515, .34785485/ ' ' 000103 

00112 13* “ DO 50 I - 1 , NN “ ‘ 000,103 

00115 14* _ CSL(I)=0.0 __ _ 000145 

00116 15* " DO 50 J - 1 , NN 000147 

00121 16* " C 5 ( I , J ) - 0 . (J _ __ 000147 

00122 17* '*50 CO(I , J ) : Cl . 0 ..... ' ' 000147 

0012 5 18* DO 150 ! I - 1 , NGP 0*10173 



ELGD 




DATE 010978 

00130 

19* 


DO 150 JJ-1 ,NGP 

000173 

00133 

20* 


DO 150 KK-1 iNGP 

, , .000173 

00136 

21* 


XYZm-=GAUSS(II,NGP) 

000173 

00137 

22* 


XYZ(2)=GAUSS( JJ.NGPL 

000175 

0011)0 

23* 


X YZ ( 3>=GAUSS(KK,NGP) 

000200 

001*) 1 

24* 


GO TO (55,56,57) ,IORD ' 

000203 

0011)2 

25* 

55 

CALL SFCALL(XY2,SF,0F> 

000214 

0011)3 

26* 


GO TO 58 

000220 

001 !)<) 

27* 

56 

CALL SFCALO(XYZ,SF,DF) 

000222 

001*th 

23* 


GO TO 58 

000226 

00 1 <) fa 

29* 

57 

CALL SFCALC(XYZ,SF,DF > 

U00230 

00147 

30* 

58 

CONTINUE 

000235 

00150 

31* 

* 

CALL MATMUL (DF ,ELXYZ,GJ,3 ,NN,3 t 

000235 

00151 

32* 


CALL 1NVDET <GJ,GJINV,DET) 

000244 

00 152 

33* 


CALL. MATMUL (GJ1NU, OF, U, 3,3, NN) 

000251 

00153 

34* 


CNST-OET*WT (II , NGP > *UT (JJ,NGP)*WT <KK ,NGP) 

000261 

00154 

35* 


C F T = CN S T*DT 

000271 

00 155 

36* 


RH0=0 .0 

000273 

00156 

37* 


FJ = 0 .0 

000274 

0 015 7 

38* 


GF3S=Q.O . .. 

000275 

00160 

39* 


DO 60 J = 1 ,3 

000374 

00163 

40* 


H ( J > =0 . 0 

000374 

00164 

4 1 * 


V ( J) =0.0 

000374 

00165 

42* 


DO 60 K - 1 , 3 

000377 

00170 

43* 

60 

DS < J ,K ) =0.0 

000377 

00173 

4 4 * 


0065 1=1 ,IDIM 

000411 

00176 

45* 


00 65 J = 1 , 1 DJ M 

0004 1 1 

00201 

46* 

65 

C ( I , J) =0 .0 

000411 

0 020 4 

47* 


DO 70 irl , NN 

QD04 30 

00207 

48* 


FJ=FJ+SF(I)*BF(I,L) 

000430 

00210 

49* 


RH0-RH0+SF1 I)*VEL (I ,5) 

000433 

0021 1 

50* 


00 70 J = l,3 

000443 

00214 

51* 


V(J)=V(Jl+SF(I)*WEL(I,j> 

000443 

00215 

52* 


DO 70 K = 1 , 3 

000450 

00220 

53* 


DS(J,K)-DS(J,K)*W(K,I)*DI5(I,U) 

000450 

00221 

54 * 

70 

CONTINUE 

000476 

00225 

55* 


DO 72 1=1, NN 

000476 

00230 

56* 


00 72 J=1,I0IH 

000516 

00233 

57* 


00 72 K = 1 , 1 0 I M 

000516 

0023b 

58* 

72 

C(J,K)=C(J,K)+CFRC(I,J,K)*SF(I) 

000516 

00242 

59* 


LEE = LI ( L , L ) 

Q00536 

0024 3 

60* 


00 105 1=1,3 

000552 

00246 

61* 


I J=LI( 1,1) 

000552 

00247 

62* 


JK=LI ! L , I ) 

000553 

00250 

6 3* 


H(I)=H( I )-0.50*C( JK, JK)*OS(I,L) 

000555 

00251 

64* 

. 105 

GF05=GF0S- CtLEE ,IJ)*DS (I ,1 > 

000563 

00253 

65* 


DO 140 1=1, NN 

000572 

00256 

66* 


CNI=CNST*SF (I ) 

000612 

00257 

67* 


CSL( I!=CSL (I ) *CNI*( V(L)+0.50*DT*FJ)*0.5Q*CFT*GF0S,*i(<L ,11*0.50* 

000614 

00257 

68* 

1CFT* (H ( 1 > **’ (1,1>*H(2>*W<2,I)*H<3)*W(3,I)) 

0006 14 

0026G 

69* 


DO 140 J = 1 , N N 

000646 

00263 

70* 


00 1 35 K = 1 , 3 

000646 

00266 

7 1* 


U K = L I ( L , K ) 

• 000646 

00267 

72* 

135 

CS.U,J)=C8(T,J)+0.50*C<JK,JK)*Cf r T*W(K,l)*W(K,U> 

000647 

002 7 1 

73* 

140 

CO(I , J ) = C I) ( i ,J)*CNI*SF (J)*RHO 

0.10660 

0 02 74 

74* 

ISO 

CONTI Mil. 

0.10 7 2 



-66 


eLgo 

003QO IT* 

00303 76* 

00 30 4 77* 

00307 78* 

00310 79* 

00311 80* 

00312 ~'"'81* 

00315 82* 

OQ316 03* 


END OF COM PILA TION: NO DIAGNOSTICS . 


> 


DO 200 I=l t NN 

CSLU) =5.0*0 T*C S L (I) / 6 .JJ 

DO 200 j=i,NN* 

. C1=CD < I , J ) ♦ 3,.0*DT*CS (I , J 1/28.0 . 

C2=C0t I , J)-13.0*DT*CS<I, J 1/42.6 
_CD II , J I =C2 

200 csu,j)=ci 

RETURN 

END 


aHOG.P 


FRCR 


DATE. 010978 

~ 000722 

000753 

*000760 
. 000760 
000764 

000771 

000772' 

001004 

001163 



FRCR - - ' ’" """" DATE' 010978 

aFOR.s frcr/frcr 

HSA £3 -01/D9/79-23;43;51. _(6») j „. 


SUBROUTINE FRCRIT ENTRY POINT 001420 


STORAGE 

USED : 

CODE • 1 ) 001457; 

COMMON 

BLOCKS 

: 

00 0 3 . 

CEL21 

000015 „ 

ODOM 

NOOEPJ 

onooo3 

0005 

MATRL 

000005 

GO 06 

OR THPC 

000060 

0007 

PRO JM T 

000047 


DAT A ( 0 i 0Q0l§6; BLANK G0HMONJ 2 I.J3Q.00QQ 


EXTERNAL RFFERENCES (BLOCK, NAME ) 





i 

O' 

-0 


0010 


NERR3* 





• 

' 












STORAGF 

ASSIGNMENT 

<ei.OCK , TYPE. RFL ATTV E LOCAT TON. 

NAME) 










00Q1 


000510 

105L 

0001 


000543 

1 lot 

ODD 1 


000123 

1 17G 

OOQl 


000161 

1 24 G 

0001 


000572 

12SL 

0001 


000162 

127G 

0001 


000212 

137G 

0001 


000605 

1 40 L 

0 001 


000217 

1 4 2 G 

0001 


000220 

145G 

0001 


000702 

1 4 SL 

0001 


000712 

1 SOL 

0001 


000240 

154G, 

0 00 1. 


000256 

1 60 G 

.0001 


000257 

163G 

0001 


000302 

1 77G 

0001 


000727 

200 L 

0001 


000335 

204 G 

0 00 1 


000733 

205L 

'onoi 


000361 

2 1 6 G 

COOl 


000174 

2 2 L 

. 0001 


.001012 

220L 

0001 


000434 

24tlG 

_o ro l 


00 0 4 4 3 

245G 

0001 


001044 

245L 

0001 


001045 

246L 

0001 


000477 

2 65 G 

0001 


001147 

276L 

"o 00 1 


000515 

277G 

0 0 0 1 


' 001202 

280L 

0001 


CIO 1 231 

2R5L 

0001 


001244 

2 9 0 L 

0001 


001341 

2 9 2 L 

0 001 


0U1351 

295L 

0001 


000351 

30L 

UOO 1 


001366 

300L 

0001 


000520 

302G 

0001 


000620 

3 4 1 G 

OOQl 


000755 

373G 

oocn 


0 UO 7 74 

3766 

OOQl 


001023 

4 1 1G 

0001 


001076 

433G 

0001 


001105 

4 4 0 G 

0 001 


000402 

45L 

0001 


001136 

4 57G 

0001 


0004Q3 

4 6 L 

OOQl 


001154 

4 7 1 G 

COO 1 


00 1 1 S 7 

4 74 G 

0 001 


001257 

5 3 3 G 

0003 


000001 

A 

0003 


000002 

ALPHA 

0006 

R 

000055 

CK 

0003 


000013 

DELT 

0 00 6 


000033 

E 

UODO 

R 

000046 

F 

oooo 

r 

000041 

I 

oooo 

"i" 

0C0045 

II 

"""oooo 


'000066 

INJPS 

o no 3 

I 

00001 1 

INNER 

0004 

I 

000002 

INTFT 

0003 


000000 

I ORDC 

0005 

I 

n o o n o m 

ISOD 

qOQ4 

I 

nunocis 

1 SOT 

o no 3 


000!) 1 2 

IT£ft 

uooo 

I 

000042 

J 

0000 

1 

000043 

H 

oooo 

1 

000047 

K I 

oooo 

I 

noooso 

LEE 

0 00 6 

I 

OUOU22 

LI 

uouo 

I 

000056 

LI1 

OOQO 

I 

000057 

L 12 

oooo 

I 

000060 

LJ 

0000 

1 

000061 

LK 

OOOO 

I 

000024 

LI 

oooo 

I 

000032 

L2 

0000 

I 

000054 

M 

oooo 

I 

000053 

ML TMIN 

oooo 

I 

oonoo 3 

MP 

" ' 0 ooo 

I 

oon04 o 

N 

0003 


000006 

NBU 

0003 


ooooio 

NEPJ 

0004 


GO 0 DO 0 

NEPJT 

0003 


0D0D03 

NET 

0 00 5 

I 

oonoou 

NFR AC 

0003 

I 

000014 

NFST 

0003 


000005 

NHBW 

oooo 

l" 

000055 

Nl““ 

oooo 

I 

000062 

NK 

0003 

i 

000007 

NPPJ 

“ 0004 

i' 

000001 

NPPJT 

0003 

I 

000004 

NPS 

0007 

R 

000044 

P CK 

0007 


000022 

PE 

0 00 5 


000002 

PMIU 

0006 


000044 

PNIU 

0007 


000033 

PPNIU 

0007 

R 

000011 

PSLC 

0007 

R 

000000 

PSLT 

" OOQO 

r' 

OOOOIO 

RATIO 

oooo 

R 

000052 

RM 

OOOO 

R 

000016 

RM IN 

oooo 

R 

000051 

RN 

oooo 

R 

ODOOOO 

S 

0 00 6 

R 

00001 1 

SLC 

UO 06 

R 

000000 

SLT 

0000 

R 

000044 

SUM 

0005 


00000 1 

TMIU' " 














00101 

00101 

OCIOI 

1* 
2 * 

3* 

C 

SUBROUTINE FRCRIT ( NP Ml f NPM , S T S , I NTF t C , CS T F , C SPF , NCN T , NFRC, 
1 NDFRC .NFS ,EF ,PNF ,CKF ,KODE ) 

000 1 12 
000112 
00U1 12 

00101 

4* 

c 


01101 1? 

00101 

5* 

c 

TEST THE FAILURE OF COMPOSITES BASED ON CHAMIS’ CRITERION 

1100 1 1? 



FRCR 


DATE 010978 


00101 

6* 

C 



000112 

00101 

7* 

c 



000112 

00103 

8* 



DIMENSION STS 1 NPM , 3 , 3 > ,C ( NPMT , NCNT , NCNT > ,PNF (NFRC ,3, 3 ), 

000112 

00103 

9# 


} 

{JSTF (NCNT,NCNT) ,N0FRC(NFRC ) ,EF<NFRC.3 .3) .INTF < 1 > 

000112 

00103 

10* 


2 

,K00E<1),NFS(1),CKF(NFRC,3) 

000112 

00103 

11* 


3 

, C S PF (NCNT, NCNT) 

000112 

00109 

12* 



DIMENSION S < 3 i * HP < 5 1 , R AT 1 0 i 6 ) , RM I N ( 6 ) , L 1 ( 6 ) , L2 < 6 ) 

000112 

0010b 

1 3* 



COMMON / C E L Z 1 / I OROC , A r A L PH A , NE T . N P S . NHBU . N BU , NPP J , NE PJ f IN NE R * 

000112 , 

00105 

19* 


1 

ITER,DELr,NFST 

000112 

00106 

15* 



COMMON /NODEPJ/ NFPJT , NPPJT , IN TFT 

000112 

00107 

16* 



COMMON /MATRL/ NFRAC,TMIU,PMlU,ISOT,ISOP 

000112 

00110 

17* 



COMMON /OR TMPC/ SLT 1 3,3 1 ,SLC <3. 3 1 ,LI ( 3 t 3}.,Ef 3,3) ,PNIU (3,3) ,CK < 3) 

000112 

00111 

18* 



COMMON /PROJMT/ PSL.Tl 3,3 ) ,PSLC (3,31 ,PE< 3, 31 ,PPNIU(3, 3 ),PCK (3) 

000112 

00112 

19* 



OATA MP/1 ,2 ,3 , 1 ,2/ 

000112 

00119 

20* 



DATA Ll/1,6,5,6,2,9,5,9,3/ 

0001 12 

0 0 1 1 6 

21* 



0022 N=1 ,NPS 

000112 

0012 1 

22* 



IF (N .GE. NPPJ .AND. N .LE. NPPJT) GO TO 22 

000131 

00123 

23* 



DO 20 1=1 , N C N T 

000162 

00126 

29* 



DO 20 J=1,NCNT 

000 162 

00131 

25* 


20 

C <N, I , J > =CSTF (I , J) . _ . 

000162 

00139 

26* 


22 

continue 

000175 

00136 

27* 



DO 29 N=NPPJ, NPPJT 

000175 

0019 1 

28* 



DO 29 1=1, NCNT 

Q0D220 

00199 

29* 



00 29 J=1,NCNT 

000220 

0019 7 

■ 30* 


29 

C ( N, I , J )=CSPF (I , J) 

000220 

00153 

31* 



DO 26 K=1,INTFT 

000290 

0015b 

32* 



N = INTFU> 

000290 

00157 

33* 



DO 26 1=1, NCNT 

000291 

00162 

39* 



DO 26 J=1 ,NCNT 

000257 

00165 

35* 



IF (KODE(N) , EQ . 0) C ( N , I , J ) =CSPF 1 I , J ) 

000257 

00 167 

36* 


2 6 

CONTINUE 

000272 

0 017 3 

37* 



N F R A C = 0 

000272 

00179 

38* 



IE (ISOT .EO. 0) GO TO' 205 

000273 

00176 

39* 



DO 200 N = 1 , NP S 

000302 

00201 

90* 



IF ( N .GE. NPPJ .AND. N .LE. NPPJT) GO TO 200 

000313 

00203 

91* 



DO 30 I=1,INTFT 

000335 

00206 

92* 



IF < KOOE < N ) .NE. 0 .AND. N .EO. INTF(I)) GO TO 30 

0Q0393 

0 0 2 1 Q 

9 3* 



IFIN .EQ. INTF(l)) GO TO 200 

000396 

00212 

99* 


30 

CONTINUE 

000353. 

00219 

95* 



S U M= 0 . 0 

000353 

00215 

96* 



DO 50 1=1,3 

000361 

00220 

97* 



IF(STS(N,I»I> .EQ. 0.0) GO TO 45 

000361 

00222 

98* 



IF<STS(N,I,I) .LT. b.oi S«i)=SLCII,I) 

000363 

00229 

9 9* 



IF(STS(N,I,I) . G T. 0.0) Sm=SLTtI,I) 

000370 

00226 

50* 



RATI 0(1 ) = STS(N,I,I)/S<I) 

000375 

00227 

51* 



GO TO 96 

000900 

00230 

52* 


95 

RATIOt I 1=0.0 

000902 

00231 

53* 


96 

CONTINUE 

000903 

00232 

59* 



11=1*3 

000903 

002 33 

55* 



J = MP < I + 1 ) 

000906 

002 3 9 

56* 

... 


K = MP l 1*2 1 ' 

000910 

00236 

57* 


50 

RATTO(II)=STSIN,J,K)/SLT(J,K) 

000922 

00237 

58* 



30 6 U 1 = 1, NCNT 

000939 

00292 

59* 


60 

SUM = SUM + RATIO! I ) *#2 

000939 

00299 

on* 



DO 65 1=1,3 

000493 

0029 7 

61* 



H-MP( 1 * i ) 

mu <19 3 



frcr 


> 

i 

c^ 

sO 


0025 0 

00252 

00253 
00255 
00257 
00260 
00262 
0026*1 
00267 
00270 
00272 
0027i( 

00275 

00276 
00301 
0030*1 

00306 

00307 

0031 1 
00 3 I 2 
00313 
003m 
0 0315 
00316 
00 3 1 7 
00320 
00322 
0 0 3 2 4 
00325 
00 326 

0032 7 

00330 

00331 

00332 

00333 

00334 
00337 
Oil 3 it 0 

00343 

00344 

00345 
00345 
00347 

00351 

00352 

00353 

00354 

00355 

00356 

00357 

00360 

00361 

00362 
C 0 36 3 
00365 
00367 


62* ■ 65 SUM=SUH-CK{I)*RATIO(I>*RATIO(II> 

63* . . F = l. 0-SUM . 

64* I F ( F > 100,100,200 

65* . 100 NFRAC=NFRAC+1 

66* ND-RC(NFRAC)=N 

67* IF (INNER .EQ . 11 GO TO 105 

6 8*' 'IF IKODE(N) '.NE . 2 1 KODE (751 =□ 

69* DO 102 1 = 1 ,NFST 

70* "" ' ' K I - NF S ( I 1 ’ 

71* _ IF (N .EQ. KI) KOOE ( N ) -1 

72* ' 102 CONTINUE " 

73* 105 CONTINUE 

74* 11=1 

75* , __ DO 140 1 = 1,3 . _. 

76* DO 140 J=l,3 

77* IF (II .GT.„ 6 1 G.Q..TQ. 140 

7ft* LEE=LI(I,j/ 

79*.. ...IFO.EE • 6 T • 1) GO TO 110 

80* RMIN1 II 1=ABS (RATIO(LEE 1 1 

8 1* ... L 1 1 1 1 1 = I , . _ . 

82* L 2 ( 1 1 1 -J 

83* . GO TO 140 

B4* 110 CONTINUE 

85* RN=RMIN(II ) +J ,E r 4 

86* ” RH=RHIN ( II ) -1 ,E-4 

87* . . IF (A BS(RATIO(LEE) 1 .GT. RNl.GO TO 140 

88* IF(ABS(RATIO(LEE)).GE. RH 1 GO TO 125 

89* RHINl II )=A8S(RATI0(LEE)1 

90* LI ( 1 1 1 = I 

9 1* ... L 2 ( 1 1 > = J 

92* GO TO 140 

93* 125 11=11+1 

94* PHI NIX I l=ABS(RATIO(LEE ) ) 

95* L1(II)=I 

96* L 2 ( 1 1 1 = J 

97* 140 CONTINUE _____ 

9ft* ' ~ ' MLTMIN=II 

99* 00 180 M=1,KLTMIN 

103* N I = NF R AC 

101* LIl=ll(H) _ . 

102* L I 2=L2 (Ml 

10 3* EF (N I ,L I 1 t L I2 1=0 .0 I 

104*'”" " I F ( L 1 1 .NE. Li 2 1 GO IT 0 145 

105* LJ=HP(LI1+1) , 

106* LK=MP(LIl+?> 

107* , PNF(M,LI1,LJ)=0.0 . ... 

108* ‘ PNF (NI,LI1,LK)=0.0 

109* CKF ( Nl , L I 1 ) =0 . 0_. ^ 

110* C K F ( N I , L K 1 =0.0 

111*. GO TO 150 

112* 145 EF(Nl,LI2,LIl)-0.0 

113* 150 CONTINUE 

114* C(N,U 1 ,LI2)=0.0 

115* ... 180 CONTINUE 

116* 200 CONIINUF 

117* 20b CONTINUE 




FfiCR 


DATE 0 1 097B 


00370 

0037? 

00375 

00400 

00402 

00404 

118* 

119* 


IF (ISOP .EQ. 01 RETURN 
DO 300 N=1,NPPJT 





000733 

000755 

120* 
J?l* 
122* 
123 *‘ 


DO-210 I=1,INTFT 

IE ( KODE { N ) . JJ 

IF IN .GE. NPPJ 1 GO 
210 CONTINUE 

ANO. N .EQ. INTF < I 1 ) GO TO 220 



OOQ774 

000774 


TO 220 




- 

001003 
. . 001010 

00406 

124* 


GO TO 300 






001010 

00407 

125* 


g20 SUM-0 . 0 






0010-12 

00410 

126* 


DO 250 1=1 ,3 






001012 

004 13 

127* 


IF(STS(N, 1,1 ) .EQ. 0. 

01 GO TO 245 




* 

DO 1 023 

0041 5 

128* 


IFCSTS(N,I,U .LT. 0. 

o) sm=PSLca,n 





001025 

no« i 7 

129* 


IFtSTSIN.I.I) .GT. 0. 

01 S (I 1=PSLT (I, I 1 





001032 

U 11 4 2 1 

130* 


RATIO(I>=STS(N,I,I)/S<I> 





001037 

00422 

131* 


GO TO 246 






001042 

004 2 3 

132* 


245 RATIO! I l=D.O 






001044 

U 04 2 4 

133* 


246 CONTINUE 






001045 

011425 

134* 


11=1+3 






001045 

U 0 4 2b 

135* 


j=mp ( r + i i 






001050 

00427 

136* 


K =HP ( 1 + 2 1 






001052 

00430 

137* 


250 RATIO (II)=STSIN,J,K)/PSLT(JfK) 




001064 

004 32 

1 3 8* 


DO 260 I=1,NCNT 






001076 

OO- 3 5 

139* 


260 SUM-SUM+RATIO (I 1**2 






001076 

004.5 7 

140* 


DO 265 1=1,3 






001105 

OO'i 4 2 

1 4 1 * 


I I=MP< 1+1 ) 






001 IDS 

004 4 3 

142* 


265 SUM=SUM-PCK (Il*RATIO(Il*RATIOUI> 





001107 

0044 5 

14 3* 


F=1 .O-SUM 






001115 

0044 6 

144* 


IFIFl 270,27D,300 






001117 

00451 

14 5* 


270 NFRAC=NFRAC+1 






001121 

00452 

146* 


NDFRC ( NFRAC ) =N 






001126 

00453 

147* 


IF (INNER- .EQ. i ) GO 

TO 276 





. 001130 

00455 

148* 


KOUE t N > -0 






001132 

00456 

149* 


DO 275 K=1,NFST 






001136 

004 61 

160* 


NK =NF S ( K ) 






001136 

00462 

151* 


IF (N .EQ. NK> K ODE ( N 1 = 1 





001137 

00464 

15?* 


275 CONTINUE 






001147 

00466 

153* 


276 CONTINUE 






001147 

004 6 7 

154* 


11 = 1 






001147 

004 70 

155* 


00 290 1=1,3 






001157 

004 7 3 



OR Or \ i 3 

. 





001157 

00476 ' 

157* 


IF ! 1 1 .GT. 61 GO TO 

290 





001157 

00500 

isa* 


LEE=LIlliJl' 

~ ” 




, . 

" “ '"'001163 

00501 

159* 


IF (LEE .GT. 1 1 GO TO 

280 





001166 

00503 

160* 


R MIN < II »=AB S (RATIO! LEE 1) 





001171 

00504 

161* 


LI (II 1=1 






001174 

00506 

162* 


L 2 ( 1 1 ) = J 






001176 

OD506 

163* 


60 TO 290 






001200 

00507 

164* 


280 CONTINUE 






001202' 

00510 

165* 


R N = R M I N ( II 1+1 . E-4 



•* 



001203 

00511 

166* 


R M = R M I N ( 1 1 1-1 .E-4 






001206 

00512 

167* 


IF (AGSIRATIOILEE 1 l.GT. RN1 GO TO 290 





001211 

00514 

168* 


IF ( AbS (RATIOtLEE 1 1 .GE . RM) GO to 285 





' >001215 

00516 

16 9'* 


RM I N ( I I ) = ABS(PAT10(LEE 1 1 





001221 

0051 7 

1 70* 


L 1 ( 1 1 1 = I 

4 





001223 

00520 

171* 


L 2 ( I I 1 = J 






001225 

00521 

17?* 


GO TO 290 






(JO 1 ?2 7 

Oil 4 2 2 

1/3* 


285 11=11+1 






001231 



-71 


FRCfi 



aHOG,P 


GEOM 


DATE 010978" 
EQ1235 

__ 001237, 

0012m 

1 ... 001251 . 

001251 

001253 

001257 

_ OD 1 260 

~ 001262 

__ 001272 

001273 

001276 

001 314 

_ 001331 

001332 

001 334 

U01335 

. 0 01 3 37 

001341 

• ... 001351 

001362 

_ . 001 371 

001371 

001 371... 

001456 



GEOH 


DATE 01(0978 


SFORjS GEOH, GEOH 

,HS A , E 3 -01/09/ 78-2 3 ;43 1 5 5 (3 .) 


SUBROUTINE GEO H T R ENTRY POINT 000376 


STORAGE 

USED; .CODE ( 1.) 

COHHON 

BLOCKS 

: 

0003 

SRFACE 

.000077 

0004 

GEOH 1 

000524 

0005 

CELZ1 

000015 

0006 

LAGRGN 

000005 

00Q7 

CELZ2 

000007 

0010 

NODE P J 

000003 



EXTERNAL REFERENCES (BLOCK, NAME! 


001 1 


NPRTS 
















0012 

0013 


N 1021 
NRDCS 
















0014 


N I 01 5 
















0015 


NI035 
















0016 


NEPR3S 
















STORAGE 

ASSIGNMENT 

(BLOCK, TYPE 

RELATIVE LOCATION, 

NAME > 








0000 


000026 

1000F 

0000 


000027 

1 1 1 OF 

0000 


000035 

1150F 

0 000 


000036 

1200F 

0001 000024 

1 27G 

0000 


000043 

1300F 

0000 


000046 

1305F 

0001 


000031 

133G 

OOOD 


00 005 I 

1350F 

0000 000060 

1400F 

0001 


000042 

142G 

0000 


000066 

1 4 2 0 F 

0001 


000076 

1 53G 

0 001 


000103 

1 57G 

0001 000114 

166G 

0001 


000150 

1 77G 

0001 


000161 

205 G 

0001 


000176 

2 1 5 G 

0 001 


000130 

215L 

0001 000216 

224G 

0001 


000217 

227G 

270G" 

0001 


000220 

2 3 2 G 

0001 


000250 

244 G 

0 001 


000251 

2 4 7 G 

0001 000252 

252G 

0001 


000310 

0001 


000325 

300 G 

oooi 


000336 

3 0 6 G 

0 001 


000353' 

31 6G 

0005 'OOOOOI 

A 

•0005 


000002 

ALPHA 

0005 


000013 

DELT 

0007 


000004 

DIMX 

0 00 7 


000005 

DIMY 

0007 000006 

DIMZ 

0000 

R 

000000 

G 

0000 

I 

000021 

I 

0000 


000100 

1 N JP $ 

0 00 5 


000011 

INNER 

0003 I 000065 

INTF 

0010 

I 

000002 

INTFT 

0005 


000000 

I OR DC 

0006 


000002 

IORDL 

o no 5 


000012 

ITER 

0000 I 000023 

J 

uooo 

I 

000024 

K 

0004 

I 

000000 

KODE 

0000 

I 

000020 

N 

0 005 


000006 

N8U 

0006 ' 000003 

NBWT 

0007 


000003 

NE LG 

0006 

I 

oooooi 

NELT 

0005 


000010 

NEPJ 

0 010 


000000 

NEPJT 

0005 I 000003 

NET 

U007 


oooooi 

NETR 

0003 

I 

booooo 

NFS 

0005 

I 

000014 

NFST 

0 00 5 

I 

000005 

NHBW 

0006 I 000004 

NH8WT 

0000 

I 

000022 

NN 

0004 

I 

000114 

NOD 

0007 


000002 

NPLG 

0 00 5 


000007 

NPPJ 

0010 OOOOOI 

NPPJT 

0005 


000004 

NPS 

0006 

I 

OOODOO 

NPS T 

0007 


000000 

NPTR 

'0 00 0 

i 

000025 

NU 














, • 







00101 


1# 


SUBROUTINE 

GEOH Tfi ( X 1 








• 

000013 


00101 


2* 

C 













000013 


00101 


3* 

C 













000013 


00101 


4 * 

C GENERATE GEOMETRIC INFORMATION 

FROM 

INPUT DATA 





000013 


00101 


5* 

C 













000013 


omen 


6* 

c 













000013 


00103 


7* 


INCLUDE 

PA RAMI ,1 I SI 









000013 




geoh 


DATE Q10978 


> 

I 

■si 

U) 


00103 

7* 

00103 

. 7* 

00104 

7* 

00105 

70 

00106 

7* 

00106 

7* 

00107 

7# 

00110 

7* 

001 1 1 

7* 

00112 

7* 

00113 

7* 

00113 

7* 

00114 

' 8* 

001 14 

9 * 

0011 4 

10* 

00114 

10* 

non 5 

10* 

an 1 16 

in* 

00117 

10* 

001 17 

10* 

00120 

in* 

00121 

10* 

0012 2 

10* 

GDI 2 3 

10* 

00123 

in* 

00124 

li* 

00126 

12* , 

001 31 

1 3* 

00137 

14*' 

0014 7 

15* 

Ou 1 50 

16* 

0 015 2 

17* 

00155 

18* 

00163 

19* 

00173 

20* 

00174 

21* 

00176 

22* 

002 01 

23* 

0 071 1 

24* 

00222 

25* 

00223 

26* 

00226 

27* 

00231 

28* 

00234 

29* 

00236 

30* 

00242 

31* 

00243 

32* 

00246 

,33* 

00251 

” 34* 

00254 

35* 

00255 

36* 

0 0 ? b 2 

37* 

00266 

38* 

00274 

39* 

0 0 7 /b 

4 0* 

00304 

4 1 * 


PARAM 1 PROC 

PARAMETER NPMT = ~76 ,'nEHT =“33 ,NPN=" 76 t NEM =~33 

, . . PARAMETER NPEEG= 8 , NPE = a 

PARAMETER NDF RS= 53 , NDI NT =10 

C _ 

PARAMETER - NRMAX = 2 "odo i'NCM AX =2 

PARAMETER NGPLG= 2 ,NGP =2 _ 

PARAMETER NCNT= 6 , NFRC=NPm' 

PARAMETER IU = 5 ,NDPJT= 10 , NTSTEP= 20 D 

PARAMETER NBV =NPM , NB S=NPH , N 3 D = NPM 

END 

"'■"INCLUDE genmsh^list 
c 
c 

GENMSH PROC _ __ 

COMMON/ SRF ACE/ NF S ( NOFR S > , I N TF l NO INTI 

COMMON /GE OKI / KODE (NPMT ) ,NODtNEMT ,NPEL G_) 

COMMON / C £ L Z 1 / IOROC , A , ALPHA ,NET ,NPS ,NHBu",NBW ,NPPJ,NE PJ .INNER , 

1 1 TER. 0 ELT ,NFST 

COMMON /LAGPGN/ NP S T , N EL T , I ORD L , N R W T , NHBU T 
COMMON /CFLZ 2 / NPTR.NETR, NPLG , NE L G ,0 1 MX , DIM Y , 01 MZ 
COMMON /NODEPJ/ NE P J T , N PP J T , I N T F T 

OIMENSION X ( N PM T , 3 I , G < 1 6 J . 

END 

PRINT 1110 
00 210 N = 1 i NE T 

RFAD 1000 , (NOD ( N, I ) , 1 = 1 ,NPE > 

210 PRINT 1150 , N,(N 00 IN, II, 1 = 1 , NPL) 

nn=nlt + 1 ________ 

IF INN .GT. NELT) GO TO 215 ' ’ 

00 21 1 N = NN,NFLT 

READ 1000 , (NOD ( N, I » , 1 = 1 ,NPELG ) 

211 PRINT 1150 , N,(NOO(N,I ),I= 1 ,NPELG) 

215 CONTINUE 

PRINT 1200 ... 

DO 220 N= 1 ,NPST 

RFAO 1300 , G ,K 0 DE (N ) , < X <N , 1 ) , 1 = 1 , 3 ) _ 

2 20 PRINT 1 305 , 0 , K 0 DE < N ) , ( X l N , I 1 , I = 1 , 3 ) 

NMliW = 0 _ 

00 250 1 = 1 , NET 

00 250 J = 1 , NPE 

DO 250 K = 1 ,NPE”. 

NW=I ABS (NOD ( I ,J 1 -NOO ( I ,K ) )♦ 1 . 

250 IF (NHBU .LT.'NW) NHBW=NVI 

NHBWTrNHBW . _ 

DO 252 I=NN,NELT' ‘ ~ ' 

_ DO 252 J = 1 ,NPELG ■’ 

DO 252 K = 1 , NPELG ‘ “ 1 ' 

NU=I ABS ( NOD ( 1 ,J I -NOD (I ,K ) 1 + 1 
252 IF ( NHBU T . L T . NUI NHB W T =NW 
PRINT 1350 , NHBU, NHBWT 
READ 1000 , (NF S ( I) , I = 1 ,NFST ) 

PRINT 1 A DO 

PRINT 1000 , (NFSlIl ,1 = 1 , NFS!) 

RFAD 1000 , I t MF (I ) , 1 = 1 ,INTFT ) 


000013 
OOOQ1 J_ 
000013 
000013 
000013 
000013 
000013 
000013 
000013 
000013 
000013 
000013 
000013 
□00013 
DODO 1 3 
000013 
000013 
000013 
000013 
000013 
000013 
000013 
000013 
000013 
000013 
000013 
U00024 
000024 
D00034 
□00055 
000060 ’ 
000063 
D00076 
D00106 
000130 
DOO 1 30 
DOG 1 33 ’ 
000150 
0001 68 
000211 
000220 
000220 
000220 ‘ 
000220 
000224 
DOO 242 
000252 
000252 
000252 " 
000252 
000256 
000274 
(iJO 3D? 
000113 
000 3 1 7 
It 1U33(T 



-74 


GEOH 


— >H 


• /*■ ' 

OA'Tjt 010978 


* 


00312 

429 


PRINT 

1420 

00Q34 1 

003 14 

4 3* 


PRINT 

1000. UNTFII) ,1 = 1 .INTFT 1 

000345 

00322 

44* 

1000 

FORMAT 

(2014) 

000356 

00323 

45* 

....1110 

FORMAT 

(* ELEMENT _N0, _ AND _ NQOE _ NUM0ERS.V/J. . "... 

000356 

00 32 4 

4 6* 

1150 

FORMATI33I4J 

000356 

00 3 2 & 

47* 

1200 

FORMAT 

(//• 6RI0 COORDINATES*/) 

000356 

00326 

46* 

1300 

F0RMAT(16A1»I8»3F8.3I 

000356 

00327 

49* 

1305 

FORMAT 

1 IX, 16A1 ,I8,3F8.3) 

000356 

00330 

50* 

1350 

FORMAT 

</// 6X , * NHBW r* , I 5 / 5 X , *NHBWT =»,l5///> 

000356 

00331 

51* 

1400 

FORMAT 

<//’ NODES ON FREE SURFACE*/) 

000356 

00332 

52* 

2 420 

FORMAT 

(//* NODES ON IMPACT SURFACE*/) 

000356 

00333 

S3* 


RETURN 


000356 

00334 

54* 


END 

• 

000411 


_ END OF 

COMPILATION : 

.NO DIAGNOSTICS. 1... 



aHO($,p 


INTVEC 



INTVEC 


DATE 010978 


aFOR.S INTVEC, INTVEC 

HSA E3 -01/09/78 —2 3:43:58 iO,J. 


SUBROUTINE INTVEC 

ENTRY POINT 000705 







- 






STORAGE 

used: 

CODE ( 

1) 000731; 

DATA (01 . 

□00166; 

BLANK COMMON!?]. 

oo go pa. - 

— 

- 

— 

. 

. .. 




EXTERNAL 

. REFERENCES 

(BLOCK, NAME") 

~ 







— 


— 


— 

- 

— 

- 

0003 

REAOF 

















CJOOA 

nwous 

















0005 

NI02S 

















, 0006 

NS TOP £ 

















0007 

NERR4S 












- 





0010 

NERR3S 

















STORAGE 

ASSIGNMENT 

(BLOCK, TYPE, RELATIVE LOCATION, 

NAME! 

- - 




■ - - — 

■ --- 

... 

- 

.. - - 


0001 

000022 

10L 

0001 

000377 

idol' 

00 01 


000403 

Viol 

0 00 1 


do 04 2 6 

120L 

0001 


000451 

130L 

0001 

000061 

1316 

0001 

,000479 

1 4 PL 

POOL 


.□ 0 0 5 1 7 

.. 1 5 OL. 

0 00.1. 


.Q0Q52Q 

1601 . . 

_ 0001 


000260 

1 64 G 

ODO] 

000530 

1 70L 

0D01 

000551 

1 90L 

0001 


000554 

20QL 

C 001 


000332 

207G 

0001 


000566 

210L 

0001 

000575 

220L 

0001 

000365 

2 2 4 G 

0001 


000604 

225U 

0001 


0006 1 4 

230L 

0001 


000402 

2 34 G 

0001 

000623 

240L 

0001 

000633 

25QL 

0001 


000643 

260L 

0 001 


000652 

270L 

0001 


000066 

30L 

0000 

000026 

3D0F 

0001 

000547 

306G 

0000 


000033 

3 1 QF 

0 00 0 


000042 

320F 

OOGO 


aaoosa 

325F 

GOOD 

000061 

3 3 OF 

0000 

000067 

3 6 OF 

0000 


000076 

35QF 

0 00 0 


000110 

3 6 0 F 

0000 


000120 

370F 

COO! 

000661 

400L. 

0001 

000263 

45L 

0001 


000266 

50L 

... 0 00 1 


00(1303 

55L 

0001 


000337 

SOL 

G001 

000350 

9 0 L 

GOOD 

6 000132 

0 

□ OOP 

I 

000014 

I 

0000 

1 

ouao i l 

IERR 

0000 

I 

000010 

IFL 

00 00 I 

000029 

1 1 

0000 

000140 

I N JPS 

0000 

I 

000007 

IPAD 

0 00 0 

I 

000023 

IS 

0000 

I 

000012 

IWO 

r,ooo i 

000132 

IX 

0000 

I 000134 

I Y 

0000 

I 

000013 

K 

0 00 0 

I 

000020 

KK 

0000 

I 

000017 

L 

OOOCI I 

000021 

LAST 

oooo 

1 000025 

H 

0000 

I 

000015 

MTYPE 

ooon 

I 

000016 

MWD 

0000 

I 

000005 

NOUT 

ooon i 

000022 

NS 

0000 

I 000006 

NULL 

0000 

I 

000001 

PTYPE 

0000 

R 

000134 

R 

0000 

I 

ooonoo 

WO 


00101 
00103 
00103 
DO 1 0 3 

00103 

00104 

00105 

00106 
00110 

1* 
2* 
3* 
4 * 
5* 
6* 
7* 
8* 
9* 

C 

C 

C 

SUBROUTINE INTVEC!*, a, NWD,N,ITY PET 
INTEGER A(1),W0,IX(2),PTYPE(4),IY 
***** ***** 

— 

— 

. 

*• ■ 

000006 

000006 

000006 

INTERPRETER VECTOR 

***** _ __ * * * ** 

D0U8LE PRECISION’’ ~D 

EQUIVALENCE ( D , I X » , ( R , I Y 1 . 

DATA PTYPE /1,2,2,4/ 

DATA NOUT/6/ 

— 

— 

— - • 



000006 
„ 000005 
000006 
000006 
000006 
000006 

OU 1 1 2 

10* 


DATA NULL , IPAD/4HNULL ,4HPA0 / 


* 



000006 

DO 1 1 2 

11* 

C 






000006 

00112 

12* 

c 






000006 

00115 

13* 


WD-NwD 





000006 

00116 

■14* 


LALL REAOF (1200,110, A *WD,IFL »IERR 1 





(II) IJ 010 

00117 

15* 


GO TO 210 





on on ?o 

00120 

16* 


10 IF 1 IT YPE .IE .0 .OR . ITYPE .GE .5 t GO TO 22o 





OOP 02? 

on 122 

1 7* 


IN El s PTYPE ( T TYPE ) 





t/inn 16 



intvec 


DATE 010978 


00123 

00125 

18* 

19* 


IF(IU'd*N*IWD.GE.NWD1 - GO TO 225 
IF (A (2) .NE .NULL 1 GO TO 30 



DD0041 

000046 

00127 

20* 


K =N* 1WD 




000051 

00130 

21* 


DO' 20. 1 = 1, K .. .. ... _ 




000054 

00133 

22* 

20 

A < I ) -0 




000061 

00135 

23* 


RETURN 




000062 

00136 

24* 

30 

MTYPL = A(U 




000066 

00137 

25* 


IF (HTYPE .LE .0.0R.MTYPE.GE.51 

GO TO 230 



000067 

001*41 

26* 


MUO=PTYPE (HTYPE 1 




• r 000103 

00142 

27* 


IF (HTYPE .LE.2.AN0.ITYPE.GE.31 

GO TO 240 



0D0106 

00144 

28* 


IF<ITYPE.LE.2.AND.HT.YPE.GE.31 

GO TO 240 



0001 30 

00144 

29* 

c **** 

TO SET TYPE CHANGE SINGLE 

TO DUUELE OR 

DOUBLE TO SINGLE 

000130 

00146 

30* 


IF ( HTYPE .£Q . 1 . AND. I TYPE .EQ .2 ) 

ASSIGN no 

TO 

L 

000150 

00150 

31* 


IFIHTYPE.EO. 2. AND. ITYPE.EO.il 

ASSIGN 120 

TO 

L 

000166 

00152 

32* 


IF(MTYPE.EQ.3.ANO.ITYPE.E0.4) 

ASSIGN 1 3D 

TO 

L 

000204 

00154 

33* 


IFIHTYPE.EO. 4. AND. ITYPE.EO. 31 

ASSIGN 140 

TO 

L 

000222 

00156 

34* 


KK=0 




00024G 

00157 

35* 


LA$T=D 




000241 

00160 

36* 


K -NWO— WD 




000242 

0016 1 

37* 


I F t K. EQ. 0) GO TO 45 




000245 

00163 

38* 


0040 I=WD,1 ,-l 




000247 

00166 

39* 

40 

A (K*I ) = A ( I 1 




000260 

00170 

40* 

45 

K=K + 2 




000263 

00170 

41* 

C *** 

TO CATCH INDEX OF STRING HEADER 



000263 

00170 

4 2* 

c 





000263 

00171 

4 3* 

so 

IFJK.GT.NUOl GO TO 170 




000266 

00173 

44* 


IF t A (K 1 .NE .IPAD 1 GO TO 55 




000271 

00175 

' 45* 


K-K + 1 




000276 

00176 

46* 


GO TO 50 




000301 

00177 

47* 

55 

NS=FLD<0,20,A(K>) 




000303 

00/00 

48* 


IS=FLO< 20, 16 , A< K i I 




000307 

00200 

4 9 * 

C 





000307 

00 201 

50* 


II=IS-LAST-1 




000313 

00202 

51* 


I F ( I 1 1 750,80,60 




000316 

00205 

52* 

60 

M=II*IWD 




000320 

00206 

53* 


DO 70 1=1 ,M 




000325 

00211 

54 *. 

70 

A < KK + I ) =Q 




000332 

fin? 1-3 
00214 

55* 

5b* 

88 

K K =K K ♦ H 

1HN6> 268,268,85 

• 




000333 

000337 

00217 

57* 

85 

H=IWD*NS 




000341 

0C220 

58* 


IFtHTYPF.EQ.ITYPE) GO TO 9t) 




000343 

00222 

59* 


GO TO 100 




000346 

00223 

60* 

90 

DO 95 1=1 ,M 




000350 

00226 

61* 

95 

A (KK* I>=A(K+I 1 




000365 

0C230 

62* 


KK=KK+M 




000367 

00231 

61* 


K = K + H 




000372 

00232 

64 * 


GO TO 160 




000375 

00233 

6 5 * 

100 . 

DO 150 1=1, NS 




000377 

00236 

66# 


GO TO L, ( 110,120,130,140) 



' 

000402 

D02 37 

67* 

no 

K = K+ 1 




1 000403 

00240 

68* 


I Y = A < K 1 




000411 

00241 

69* 


D=R 




000413 

00242 

70* 


A ( KK *■ 1 > = IX( 1 1 




000415 

01124 3 

71* 


A(hK*?l=IX(2) 




000417 

00244 

72* 


K X H ♦ 2 




000421 

00 24 5 

7 1* 


GO TO 150 




UOU424 



XNTWEC 


DATE 010978 


00296 

79* 

120 

K =K + 2 

000426 

00297 

75 + 


IX ( 1 >=A (K-U 

000432 

00250 

76* 


IX(2)=A(K) 

000434 

00251 

77* 


R “0 

. 000436 . 

00252 

78* 


KK=KK+1 

000440 

00253 

79* 


A ( KK ) =1 Y 

000445 

00259 

80* 


60 TO 150 

000447 

00255 

8 1* 

130 

K - K ♦ 1 

000451 

00256 

82* 


I Y=A (K ) 

000457 

00257 

8 3* 


D-R 

000461 

00260 

89* 


A ( KK » 1 » = I X f 11 

000463 

0026 1 

85* 


A (KK + 2 ) rix ( 2 ) 

00Q465 

00262 

86* 


K K -K K + 2 

000467 

00263 

87* 


GO TO 110 

DOOM 72 

00269 

88* 

19D 

K=K + 2 

000474 

00265 

89* 


IX ( 1 > =A < K — 1 ) 

000500 

00266 

90* 


IX ( 2 ) =A tK ) 

000502 

00267 

9 1 * 


R = D 

000504 

00270 

92* 


KK=KK+1 

000506 

00271 

93* 


A ( K K 1 A I Y _ _ . 

000513 

00272 

99* 


GO TO 120 

000515 

00273 

95* 

150 

CONTINUE 

000520 

00275 

96* 

160 

K = K ♦ 1 

00052D 

00276 

97* 


LAST-KK/IUO 

.000522 

007 7 7 

98* 


GO TO 50 

000526 

0U30Q 

99* 

170 

M=KK-IUO , . - 

000530 

00301 

100* 


Hr ( N-M ) *TW0 . 

D00532 

00 302 

101* 


IF (Ml 2 70,1 90,175 . 

000535 

00305 

102* 

175 

DO 180 1=1 ,M 

000542 

00310 

103* 

180 

A t KK + I ) =0 

000547 

0 0312 

10 9* 

190 

CONTI NUE 

000551 

0031 3 

105* 


RETURN 

000551 

00313 

106* 

c ***** ***** 

000551 

0031 3 

107* 

C 

ERROR OCCURED 

000551 

00313 

108* 

c ***** ***** 

000551 

00313 

109* 

c 


000551 

00319 

110* 

200 

URITE1N0UT ,300) IERR 

000554 

00317 

111* 


RETURN 1 • ... ._ 

000561 

00320 

112* 

210 

WRI TE <NOUT , 310 1 NUO 

000566 

00323 

113 + 


GO TO 400 

000573 

00329 

119 + 

220 

WRITE (NOUT ,320) I TYPE 

000575 

00327 ' 

115* 


GO TO 400 

000602 

00330 

116* 

225 

WRITE! NOUT, 3251 N.NWO 

0006D4 

00339 

117* 


GO TO 400 

000612 

00335 

118* 

230 

WRITEIN0UT,330) MTYPE 

000614 

00390 

119* 


GO TO 400 . ...... 

000621 

0039 1 

120* 

240 

WRITE!NGUT ,340) ITYPE, MTYPE 

000623 

0039 5 

121* 


GO TO 400 

000631 

00396 

122* 

250 

WRITE (NOUT, 350) IS, LAST ' T 

000633 

00352 

123* 


60 TO 4 U 0 

000641 

00353 

129* 

260 

WRITE (NOUT , 360 ) NS 

00 U 64 3 

00356 

125* 


GO TO 400 

00U6S0 

00357' 

126* 

270 

WRITE! NOUT , 370 ) N,KK 

000652 

00363 

127* 

400 

STOP 

(10066! 

0 0 76 9 

128* 

300 

FORMAH'U INTVF.C ENCOUNTERED EOF*) 

1. 01)730 

00365 

129* 

310 

FORMAT ( ' 0 INTVEC INSUFFICIENT CORE NWD= * , IS ) 

000730 


■ ' IN T V EC " 








DATE 010978 

□ 0366 

130* 

320 

FORMAT! 

'□ 

INTVEC 

ITYPE ABNORMAL *,151 



000730 

00367 

131* 

325 

FORHATl 

»0 

INTVEC 

AREA LITTLE N=*,I5,* 

AREA-* 

,15) 

000730 

00370 

132* 

330 

FORMAT { 

•0 

INTVEC 

MTYPE ABNORMAL »,IS> 



000730 

00371 

13 3* 

340 

FORMAT t 

•o 

INTVEC 

ITYPE-' ,13, ' MTYP- ' 

t I3> 


000730 

0Q372 

134* 

350 

FORMAT! 

*0 

INTVEC 

MATRIX INDEX ABNORMAL 

IS = * ,15, ’ 

LAST* ,15) 

000730 

00373 

135* 

360 

FORMAT ( 

•o 

INTVEC 

MATRIX INDEX ABNORMAL 

NS- * ,15) 


000730 

0 0 3 7 4 

1 36* 

370 

FORMAT ( 

*0 

INTVEC 

MATRIX SIZE DIFFERS 

N - * , 15 , ’ 

KK = », 15) 

000730 

00375 

137* 


END 






000730 











END OF 

COMPIIAT 

ION : 


NO DIAGNOSTICS. 





aHOGfp 


1NVO 



I N VO 


DATE 010978 

SF OR ,S ”, Y N V I N V a " ~~~ = 

HSA E3 -01/09/78-23:44jQ1._<Q,.J 

subroutine invoet entry point ‘D oalife 

STORAGE USED: CODE ( 1 ) 000157; DATAIOl 000016: BLANK C0HH0NC2) 000 000 

EXTERNAL REFERENCES ( BLOCK NAME 1 ‘ ' 

0003" NERR3S " 

STORAGE ASSIGNMENT. (BLOCK, TYPE., RELATIVE LOC AIJON ,„.NA«E.) 

. ( 0000 . R_ 000000 Cl 0000 R 00 0001 C2 0000 R 00000 2 C3 Q.pOQ 0000 03 INJ PS 


00101 

1* 


SUBROUTINE IN V OE T ('a , B , OE T) ‘ 

INV0010 

oooooi'" 

00103 

2* 


DIMENSION A(3,31 ,B(3,3> 

INV0020 

□00001 

0 010 4 

3* 


6(Z1,Z2,Z3,Z41=Z1*ZZ-Z3*Z4 

INV0030 

00 0 00 1 

00105 

9* 


FIZ1,Z2, 23, Z4)=G(Zi,Z2, 23,241/ DET 

INV0040 

aoaooi 

00106 

5* 


C1=G(A(2,21,A<3,3I,A(2,3»,A(3,2)> 

INV0Q50 

OOOOOI 

00107 

' 6* 


C2=G(A(2,3),A(3,ll,A(2,l),A(3 t 3>l 

IN V0060 

000007 

00110 

7* 


C3=G(A(2,1),A(3,2),A(2,2),A(3,11) 

IN V0D70 

(300015 

00111 

8* 


DET=A( 1 , 1 1 *C1+A ( 1 ,2 I*C2+A ( 1 ,3)*C3 

1NV0080 

000023 

0(1112 

9 * 


B ( 1 , 1)=F ( A ( 2,2) , A(3‘, 3),A(3,21,A(2,3)) 

INV0D90 

000032 

00113 

10 * 


B(l,2)=“F(A(l,2) f A(3,31,A(l,3) t A(3,2>» 

iNvaioa 

000035 

001 14 

11 * 


B(1»3)=F(A(1,2),A(2,3),A( 1 , 3 ) , A ( 2 , 2 1 ) 

INVOl 10 

000044 

00115 

12* 


B(2,n=-F(A(2,l),A(3,31,A(2,3),A(3,in 

INV0I20 

000053 

00116 

13* 


B(2»2)=F(A(1,1>,A(3,31,A(3,1),A(1,3>> 

INV0130 

000060 

00117 

14* 


8{2,3> = -F<A(l,l>,Al?,3l,AU,3>,A(2,l)> 

INV0140 

000067 

0 017 0 

15* 


B<3,l>=F(A(?,l),A(3,2),A(3,l),A<2,2n 

INVOl 50 

000076 

00121 

1 6* 


B(i,?) = ~rtAH,ll,A(T,2),A(l.,2),A(3,in 

1NVD160 

000105 

00122 

17* 


8(3,3)=F(A(1,I>,A(2',2),A<2,1 1 , A ( 1 , 2 ) ) 

INVOl 70 

000114 

00123 

18* 


RETURN 

1 N VO 1 80 

000123 

00129 

19* 


END 

INVQ19Q 

000156 




END OF COMPILATION: NO .DIAGNOSTICS. 


olHDG ,P 


HATH 


— TH --“ - -- DATE alQ978 



SFOR.S MATM ,HATM 

HSA E3 -01/09/78-23:99 

:03 <0.1 



a 







SUBROUTINE matmul 

ENTRY POINT 000121 


- 


STORAGE 

usFnt rnnFtii oooi9i; oataioi 000092 : blanx comhon<2> 000000 









EXTERNAL 

REFERENCES 

(BLOCK, NAME! ’ 




0003'" 

NERR3S 


, 



STORAGE 

ASSIGNMENT 

(BLOCK, TYPE, RELATIVE LOCATION, NAME) 




0002 
'oooo I 

000052 1 05G 

0001 000055 11QG 0001 000057 119G 

0000 I 0000.00 I 

0000 000009 INJP* 


OOOOOl' J 

0000 I 000002 K 



> 

1 






oo 

o 

00101 

1 ♦ 

SUBROUTINE M A TMUL ( A ,B , C ,M , N , L 1 

HUL0010 

00005S 


'00103 

00109 

2* 

3* 

DIMENSION A <M ,N > ,B <N,L > ,C(M,L> 
00 10 1=1, M 

MUL0Q2Q 
HUL 00 30 

000055 

000055 


00107 

00112 

'« + 

5* 

DO 10 J=1,L . 
C ( I , J)=3 . 

MULG090 

MUL0050 

000055 

000055 


00113 

00116 

6* 

7* 10 

DO 10 K = 1 , N 

C(I,J)=C(I,J)+A(I,K)*B(K,J) 

MUL0060 

MULD070 

000057 

000057 


00122 

00123 

8* 

9* 

RETURN 

END 

MUL0080 

MUL0D90 

0DQO75 

000140 








END 

OF COMPILATION: NO DIAGNOSTICS. 




3HDG t P MATRX 



-81 


MATRX. DATE 010978 

Tfor] s hat rVThatrx 

HSA E 3 -01/09/7 8'- 2 3:99:0 9 ( 1 ,» „ 



SUBROUTINE OPNNAS ENTRY POINT 001107 

MATRX . ENTRY POI NT__0° 1 1 2 JL 

COLUMN’ ENTRY POINT 001135 

ELEMNT ENTRY POINT 001152 

WEOF “ ENTRY P0INT001 151 


S_IO RA GEU S E 0 : COPEd) 001159: DAT A (0 ) 000153; BLANK C 0H H0N(2) 000000 


EXTERNAL REFERENCES '(BLOCK, NAME ) 


0003 

0009 


NW DUS 
NI02S 


















'0005 


NI01S 


















0006 


N 1 0 3S 


















0007 


NS TOP I 


















GO 1 0 


NEPR6I 


















0011 


NERR3S 


















HORACE 

ASSIGNMENT . 

(BLOCK, TYPE 

relative 

LO C A T I ON ,„_NAMEA 

-m:I , . _ ... 

... . . 


w . . 


- „ 


_____ _ ^ __ 

__ ___ ( _ 

0000 


000097 

1 001 F 

0001 


000377 

105L 

0001 


000913 

J07L 

..0OQ1 


000913 

J10L . .. . 

0001 


000939 

120L_. 

0001 


000951 

1 30L 

0001 


000033 

1 35G 

0001 


000975 

15QL 

0000 


000059 

1 5 1 F 

0001 


000076 

1 56 G 

0001 


000569 

195L 

0001 


000571 

200L 

0001 


000199 

205G 

0 001 


000621 

205 L 

0001 


000690 

210L 

0001 


000707 

2 9 OL 

0001 


000712 

250L 

0000 


000066 

2 5 1 F 

0 001 


000275 

257G 

0001 


000791 

3 1 OL 

0001 


000752 

3 20L 

0001 


000771 

33GL 

0001 


001006 

390L 

0 001 


000551 

37SG 

0001 


000656 

929G 

0001 


001020 

5000L 

0001 


001099 

5 20 G 

0001 


001052 

6 00 0 L 

0 00 0 


000077 

60 0 1 F 

□ 001 


000122 

8 L 

0000 


000096 

8000F 

0001 


D00369 

9 DL 

0000 

I 

000033 

,1 

0 00 0 

I 

OOOOOl 

IOHDR 

0000 

I 

000020 

I E OF 

0000 

I 

000021 

I EOR 

0000 

I 

000039 

IFT 

0000 

I 

000095 

11 

0 000 

I 

000091 

IK L 

0000 


OOO 111 

INJPS 

0000 

I 

000090 

IRET 

0000 

I 

000023 

ITRL 

0000 

I 

000032 

IWO 

0 000 

I 

000035 

JJ 

0000 

I 

000022 

KEY 

0000 

1 

000031 

KSV 

□ 000 

I 

000099 

L 

UCOO 

I 

000036 

LAST 

0 ooo 

i 

00009 3 

M 

□ DUO 

I 

OOOOOO 

MAX 

GOOD 

I 

000092 

MM 

0000 

I 

000017 

NN 

0000 

I 

000019 

NOUT 

0 00 0 

I 

000015 

NULL 

oooo 

I 

000016 

NUN IT ' 

0000 

I 

000013 

P 

□ 000 

I 

000012 

PAD 

0000 

I 

00001 1 

SS 

0 OQO 

I 

000010 

SYSBUF 






DO 1 G 1 1* SUBROUTINE OPNN A S ( N NN NN , U^N U D ,1 0 A T E ,L A BE L ,1 LB ) ‘ _ .. 8/76-RS. 000000 

00101 2 * C " NNNNN OUTPUT NUMBER " 8/76-RS.* 000000 

0D101 3* C W t 1 > - U ( NUO 1 WORKING BUFFER 8/76-RS. OQOOOp 

00101 9 * ’’c IDATE(i) - I DA T E ( 3 1 DATE “ 8/76-RS.’ 000000 

00101 5* _C _ LABEL ( 1 ) - LABELI21 LABEL _ __ •* 8/76-RS. 000000 

00101 6* C" VAMEU>' NAME ’(2 1 "MATRIX 'NAME TlH I s"NAME'“iT' UStO FftR DA TA BUoYiT NA M E 8/76-RS.' 000000 

00101 7* C NCOL ------ NUMBER OF COLUMNS ' 8/76-RS. 000000 

U0101 8* C ' NR 0 W ------ NUMBER Of ROWS 8/76-RS. 000000 

00 1 0 i 9* C NFORM ------ FORM OF MATRIX 1, SQUARE 2 .RECTANGUL Aft 3,DIAG0N 8/76-RS. 000(100 

00101 'lO* C 9, LOWER TRIANG 5, UPPER TRIANG '6, SYMMETRIC 8/76-RS. OOOOOO 

00101 'll* C , 7, ROW VECTOR 8 T IDENTITY 8/76-RS. GOOCOO 

00101 " " 12* C ' NT Y PE - TYPE 1, SINGLE 2 .DOUBLE 3, COMPLEX SINGLE ' 8/76-RS. OOOOOO 

U0101 13* C 9 , COMPLEX DOUBLE • > 8/76-RS. 000.000 



MATRX 


DATE 010978 


00103 

00104 

14* 

15* 


INTEGER U<1),IdH 0RI7)»IDATE<3),LABEL(2> 
INTEGER SYSBUF t SSjPAD,P 

8/76-RS. 

8/76-RS. 

oooooo 

ooaooo 

00 1 OS 

16* 


DATA IDHDR/4HNAST ,4 HR AN ,4HF0RT,4H TAP , 4HE ID,4H C00.4HE - / 

8/76-RS. 

oooooo 

0D107 

17* 


DATA NOUT/6/ • 

8/76-RS. 

oooooo 

00111 

18* 


DATA SYSBUF/871/ 1 

8/76-RS. 

oooooo 

00113 

19* 


DATA PAD/4HPAD / 

8/76-RS. 

oooooo 

00115 

20* 


DATA NULL/4HNULL/ 

8’/76-RS. 

oooooo 

00117 

21* 

. ... 8 P.oo 

F ORMAT ( 22A6 1 


oooooo 

00120 

22* 

NUNI T=NNNNN 

8/76-RS. 

oooooo 

00121 

23* 

* 

NN=NWD-8 

8/76-RS. 

000001 

• 00122 

24* 


SS=SY$BUF-S 

8/76-RS. 

0000D4 

00123 

25* 


IE0F=0 

8/76-RS. 

000007 

00124 

26* 


I E OR -0 

8/76-RS. 

ODOQlO 

00125 

27* 


IFIILB.EQ.O) 60 TO 8 

8/76-RS. 

00001 1 

0012 7, 

28* 


KEY = 3 

8/76-RS. 

000013 

00130 

29* 


URITE(NUNIT,8000> KEY 

8/7 

000015 

00133 

3D* 


WRITEINUNIT, 8000) IOATE 

8/7. 

000023 

00141 

31* 


KEY = 7 

8/76-RS. 

000036 

00142 

3 2* 


WRI TEINUNIT, 8000 1 KEY 

8/7 

DO 0 04 0 

00145 

33* 


WRITE (NUNIT»80001 I OH DR 

8/7 

000046 

00150 

34* 


K£Y=2 

8/76-RS. 

000056 

00151 

35* 


WRITEINUNIT, 8000) KEY 

8/7 

000060 

00154 

36* 


WRITEINUNIT, 80001 LABEL 

8/7 

000066 

00152 

37* 


IE0R=IE0R-1 

8/76-RS. 

□ DO 101 

0016 3 

38* 


WRITE t NUNI T ,8000 1 IEOR 

8/7 

000104 

00166 

39* 


WRITEINUNIT, 8000) IEOF 

8/7 

000112 

00171 

40* 


IE0R=0 

8/76-RS. 

000120 

00172 

4 1 * 

8 

CONTINUE 

8/76-RS. 

000122 

00173 

42* 


RETURN 

8/76-RS. 

000122 

00173 

43* 

C 


8/76-RS. 

000122 

0017 3 

44* 

c 


8/76-RS. 

000122 

00174 

45* 


ENTRY HATRX (NAME ,NCOL ,NROW, NFORM ,NTYPE 1 

8/76-RS. 

000124 

00 176 

46* 


INTEGER NAME <21, I TRL t 7 ) 

8/76-RS. 

□00124 

00177 

47* 


KEY=2 

8/76-RS. 

000124 

00200 

48* 


WRI TE ( NUNIT ,8000 1 KEY 

8/7 

000126 

00203 

49* 


WRITEINUNIT, 8000) NAME 

8/7 

000134- 

U 0 2 1 1 

50* 


I E OR = I EOR-l 

8/76-RS. 

000147 

00212 
' 00215 

51* 


WRITEINUNIT, 8000) IEOR 

8/7 

000152 

52* 


K E Y -7 

8/76-RS. 

000160 

00216 

53* 


WRITEINUNIT, 80001 KEY 

8/7 

000162 

00221 

54* 


ITRLI 11=101 

8/76-RS. 

000170 

00222 

55* 


ITRL(21=NC0L 

8/76-RS. 

000172- 

00223 

56* 

N 

I TRL (31 =NROW 

8/76-RS. 

000174 

00224 

57* 


I TRL ( 4 1 =NF ORM 

8/76-RS. 

000176 

00225 

58* 


I TRL ( 5 1 =N TYPE 

8/76-RS. 

000200 

00226 

59* 


1W0 = 2 

8/76-RS. 

000202 

00227 

60* 


IF(ITRL(5). EQ.il IWD=1 

8/76-RS. 

000204 

00231 

61* 


IF(ITRL(5I.E0.41 IWD=4 

8/76-RS. 

000211 

00233 

■ 62* 


MAX=IUD*NR0W+2 

8/76-RS. 

000215 

00234 

63* 


I TRL 1 6 1 =MAX 

8/76-RS. • 

000222 

00235 

64* 


I TRL I 7 1 =0 

8/76-RS. 

000223 

00236 

65* 


WRITEINUNIT, 80001 ITRL 

8/7 

000224 

0024 1 

66* 


URITLINOUr.iaOl) (ITRLir>,I=l,71 

8/76-RS. 

000234 

00244 

67* 

1001 

FORMAT ( * OMATRIX TRAILER • , 7 18 > 

8/76-RS. 

000244 

00245 

68* 


1EOR-1LOR-1 

8/76-RS. 

000244 

00246 . 

69* 


WR1TL INUNT 1 ,8000 1 IEOR 

8/7 

000247 



-83 


h'aTRX " °A TE 010978 


00251 

70* 

■ 

KEY = 2 


8/76-RS. 

0DD255 

00252 

71* 


URTTp(Nl]NTT,8000) t<EY 


0/7 

000257 

0025S 

72* 


WRITE<NUNIT,800G> NAME 


8/7 

000265 

00263 

73* 


IF flRzTf op-) 


8/76-RS. 

000300 

00264 

74* 


WRITE <NUNI T ,8000 ) IEOR 


8/7 

000303 

00267 

75* 


K E Y- 0 


0/76-RS. 

000311 

00270 

76* 


IF m 


8/76-RS. 

000312 

00271 

77* 


P = 4 


8/76-RS. 

000314 

00272 

78* 


RETURN 


8/76-RS. 

000316 

00272 

79* 

C 



8/76-RS. 

00 03 1 6 

00272 

80* 

C 



8/76-RS. 

000316 

00273 

81* 


ENTRY COLUMN ( TOOL ) 


8/76-RS. 

000321 

00275 

8 2 * 


IFtlFT.EQ.l.AND. ICOL.GT.il GO 

TO no 

8/76-RS. 

000321 

00277 

83* 


IFIIFT.EQ.1 1 GO TO 107 


8/76-RS. 

000336 

00301 

84* 


IF(JJ.GT.O) GO TO 90 


8/76-RS. 

000341 

00303 

85* 


P = ^-2 . . 


8/76-RS . 

000344 

00304 

86* 


KEYrKEY-1 


8/76-RS. 

000347 

00305 

87* 


IF 1LAST.EQ.-3) GO TO 105 


8/76-RS. 

00 03 5 2 

00307 

88* 


JFT3IFT-1 


8/76-RS. 

000355 

00310 

8 9 * 


LAST 3-2 


8/76-RS. 

000360 

0031 1 

90* 


GO TO 107 


8/76-RS . 

000362 

0031 2 

9 1 * 

90 

FLD(Q,20,UIKSVn=JJ... 


8/76-RS. 

000364 

00313 

92* 


ASSIGN 105 TO IRET 


8/76-RS. 

000373 

00314 

93* 


GO TO 5000 


8/76-RS. 

000375 

00315 

94* 

105 

P - P + 1 


8/76-RS. 

000377 

0031 6 

95* 


IE OR3IEOR-1 


8/76-RS. 

000401 

00317 

96* 


WRITE {NUNIT ,8000 ) IEOR 


8/7 

000404 

00322 

97* 

107 

CONT INUE 


8/76-RS . 

000413 

00323 

98* 

no 

IKL=ICOL-IFT 


8/76-RS. 

000413 

00324 

99* 


IFIIKLI 150.130.115 


8/76-RS. 

000415 

00327 

100* 

115 

KEY=2 


8/76-RS. 

000417 

00330 

101* 


P-P + 2 


8/76-RS. 

000421 

00 3 3 1 

102* 


Wt 1 1 3ITRL (5 ) 


8/76-RS. 

000424 

00332 

103* 


W l 2 ) =NULL 


8/76-RS. 

000426 

00333 

104* 


ASSIGN 120 TO IRET 


8/76-RS. 

0004 30 

00334 

105* 


GO TO 5000 


8/76-RS. 

0004 3? 

00335 

106* 

120 

IEOR-IEOR-1 


8/76-RS. 

000434 

0 0 3 3 6 

107* 


WRITE <NUNIT*B00Q1 IEOR 


8/7 

0004 36 

GO 34 1 

108 + 


IFTMFTM 


8/76-RS. 

000444 

00342 

109* 


GO TO no 


8/76-RS. 

000447 

00343 

no* 

130 

KEY=KEY+1 


8/76-RS. 

000451 

00344 ' 

111* 


IFT=IFT+1 


8/76-RS. 

000453 

00345 

112* 


P-P + 2 


8/76-RS. • 

DO 0 4 5 6 

00346 

113* 


W(KEY)=ITRLI5) 


8/76-RS. 

000461 

00347 

114* 


L A ST 3-1 


8/76-RS. 

000466 

00350 

115* 


JjrO 


8/76-RS. 

000470 

00351 

116* 


RETURN 


. 8/76-RS. 

000471 

00352 

117* 

150 

WRITE (NOUT, 15 11 ICOL»IFT 


•' B/76rRS. 

000475 

OQ356 

1 1 8 * 

151 

FORMAT ( * 0 COLUMN TERMINATES AS 

COLUMN 

INDEX DECREASE? *.217) 8/76-RS. 

000503 

00357 

119* 


S TOP 


8/76-RS. 

000503 

00357 

1 20* 

C 



8/76-RS. 

000503 

00357 

121* 

C 



8/76-RS. 

000503 

00360 

122* 


ENTRY ELE MNT ( I ROW » A ) 


8/76-RS. 

000505 

0 0 3 6 2 

123* 


INTESM? A<4I 


8/76-RS. 

000505 

00363 

124* 


MM -0 


8/76-RS. 

000505 

00 564 

125* 


IF (I ROW-LAST .GT . 1) MM = 1 


8/ 77.-RS. 

000506 


MATRX 


DATE 010978 


00366 

126* 


H=M0D(P*1,SS) 



8/76-RS. 

000515 

00367 

127* 


IF (M.EQ.O.OR.M.EQ.l) GO TO 19S 



a/76-RS. 

000522 

00371 

128* 


H=SS-M 



8/76-RS. 

000535 

00372 

129* 


IF (M.GE.IWD+MM) GO TO 200 



8/76-RS. 

000540 

00374 

130* 


DO 190 L-l » M 



8/76-RS. 

000545 

00377 

131* 


KEY=KEY*1 



8/76-RS. 

000551 

00400 

132* 

190 

W (KEY )=PAD 



8/76-RS. 

Q00553 

00402 

133* 


PTP + M 



8/76-RS. 

000560 

00403 

134* 

195 

LAST=-1 



8/76-RS. 

000564 

00404 

135* 


P;P+2 



8/76-RS. 

Q00565 

00405 

136* 

200 

1 1 = I ROW -LA ST 



8/76-RS. 

000571 

00406 

137* 


IFUI.LE.O.I GO TO 250 



8/76-RS. 

Q00573 

004 10 

138* 


JJZJJ+ 1 



8/76-RS. 

000575 

0041 l 

139* 


IF (II.EQ. 1 > GO TO 210 



8/76-RS. 

000600 

00413 

140* 


IFIJJ.EQ.li GO TO 205 



8/76-RS. 

000606 

004 15 

14 1* 


FL0(Q,20,W<KSV> >=JJ-1 



8/76-RS. 

000610 

004 16 

142* 


JJ=1 



8/76-RS. 

000616 

00417 

143* 

205 

KEY=KEY*1 



8/76-RS. 

000621 

00420 

144* 


KSV=KEY 



8/76-RS. 

000623 

00421 

145* 


F LO ( 23 » 1 6 , W (KEY) )=IROU 



8/76-RS. 

000624 

00422 

146* 


P=P*1 



8/76-RS. 

000634 

0 0 4 2 3 

147* 

210 

DO 220 L=1«IUD 



8/76-RS. 

000640 

004 26 

148* 

220 

W 1 KE Y + L ) -A ( L ) 



8/76-RS. 

- 000656 

004 3 0 

149* 


KEY=KEY+IWD 



8/76-RS. 

000660 

00431 

ISO* 


P=P+ IWD 



8/76-RS. 

000663 ‘ 

00432 

151 * 


LA5T-IR0W 



8/76-:RS. 

000666 

004 33 

152* 


IF IKEY.LT.NN) GO TO 240 



8/76-RS. 

000670 

00435 

153* 


FL0I3 ,2Q,W(KSV) ) = JJ 



8/76-RS. 

000673 

00436 

154* 


L AST; -3 



8V76-RS. 

000700 

004 3 7 

155* 


jj;g 



8/76-RS . 

000702 

00440 

156* 


ASSIGN 240 TO IRET 



8/76-RS. 

00 0-70 3 

OU441 

157* 


GO TO 5000 



8/76-RS. 

00,0705 

0U442 

158* 

240 ' 

CONTINUE 



■ 8/76-RS. 

000707 

0044 3 

159* 


RETURN 



8/76-RS. 

000707 

0044 4 

160* 

250 

WRITE ( NOUT ,25 1 ) IROU.LAST 



8/76-RS. 

000712 

0 0 4 5 Q 

161* 

251 

FORMATCO ELEMNT TERMINATES AS ROW INDEX 

DECREASED* ,217) 

8/76-RS 

000720 

004 51 

162* 


STOP 



8/76-RS. 

000720 

0 U 4 S 1 

163* 

C 




8/76-RS. 

000720 

00451 

164* 

C 




8/76-RS. 

000720 

00452 

165* 


ENTRY wEOF 



8/76-RS. 

000722 

00453 

166* 


IF (KEY.EQ.O) GO TO 320 



8/76-RS. 

000722 

00455 

167* 


FLO (3 ,23 , W t K S V ) ) = JJ 



8/76-RS. 

000724 

0 0456 

168* 


JJ = 0 



8/76-RS. 

000734 

00457 

169* 


ASSIGN 310 TO IRET 



8/76-RS. 

000735 

00460 

170* 


GO TO 5000 



8/76-RS. 

000737 

00461 

171* 

310 

IE0R5IE0R-1 



8/76-RS. 

000741 

00462 

172* 


WRITE(NUNIT,8000) IEOR 



8/7 

000743 

00465 

173* 

320 

IKL=ITRL(2)-IFT 


•* 

8/76-RS. 

000752 

00466 

174# 


IF(IKL.LE.O) GO To 340 



8/76-RS. 

000754 

00470 

175* 


KEY;2 



8/76-RS. 

' 000757 

00471 

176* 


W ( 1 ) ; I TRL ( 5 ) 



8/76-RS. 

Q00T61 

00472 

177* 


w (2 );null 



a/76-RS . 

000763 

00473 

178* 


ASSIGN 330 TO IRET 



8/76-RS. 

000765 

00474 

179# 


bO TO 5000 



8/76-RS. 

000767 

004 75 

18 0# 

330 

ICOR=ItOrt-l 



8/76-RS. 

000771 

004 76 

181* 


WRIT!. !N UNIT, 8000) IEOR 



P/ 7 

000773 



MATRX 


Date 01 Q 978 


> 

i 

co 

t_n 


OOSOI 

182* 


IFT=IFT*1 

8/76-RS. 

001001 

Q0502 

183* 


GO TO 320 

8/76-RS. 

001004 

□ 0503 

184* 

340 

WRITE (NUN! T, 8000 1 IEOF 

8/7 

001006 

00506 

18S* 


1 EQR -0 

8/76-RS. 

001013 

00507 

186* 


RETURN 

8/76-RS. 

001014 

00507 

187* 

C 


8/76-RS . 

001014 

00507 

188* 

C 


8/76-RS. 

0D1014 

00510 

189* 

5000 

CONTINUE 

8/76-RS. 

001020 

00511 

190* 


IFtKEY.GT.NN* 8) GO TO 6000 

8/76-RS. 

001020 

0 051 3 

191* 


WRITE (NUNIT ,80DD) KEY 

8/7 - 

001024 

DOS 1 6 

192* 


WRITEtNUNlT, 80001 t W ( 1 ) , I =1 , KE Y 1 ■ 

8/7 

001034 

00524 

193* 


KEY-0 

8/76-RS. 

001047 

00525 

194* 


GO TO IRET, ( 105", 120, 240, 310, 330) 

8/76-RS. 

001050 

00526 

198* 

6000 

WRITE (NOUT ,6001 ) KEY 

8/76-RS. 

001052 

00531 

196* 


RETURN 0 

8/76-RS. 

001057 

00532 

197* 

6001 

F0RMAT(*0 WORK AREA IS TOO SMALL KE Y c *,161 

8/76-RS. 

001153 

0 0 S 3 3 

198* 


END 

8/76-RS. 

0D1153 


END OF 

COMPILATION: nq qi agnostics i 




3HDG »P 


HATS 



-86 


HATS 


DATE 010970 

s’ForTs" hats, mats : 

USA _ _E 3_, -01 / 0 9 / 7 8 -2 3 :4 4 !□ 7 1 1 , > .. 


SUBROUTINE’ ELHATS ENTRY POINT 000231 


STORAGE .USED: C0DE.(1>_ 00p3}2;. DATAIO) 000064: B LANK COH HON< 2) OOOODO 

.COMMON BLOCKS: , _ 

. OgD.3 PAROOF 00000 2 


EXTERNAL REFERENCES (BLOCK, NAME) 


0004 OUTMAT 

0005 NERR3S.. 




STORAGE ASSIGNMENT (BLOCK, TYPE, R~EL ATI VE”LOcTflON , NAME)" 


0001 000065 1 1 2G 

0001 000131 14SL 

0000 I 000005 J 
0003 000001 NGD 


0001 000074 1 1 6G 0001 000113 124G 0001 000121 125L 0001 000160 143G 

□ 0 00 _I 0 0 000 3..; 0000 .IJ300004..IE 000 0 I 0 00002 II 0000 ppaol 7.JNJPS. 

oooo i ood6o7"'k ' ooocT’i ooacToT ooo3 do’dbob maxdof qooo t oooood name 

0000 I 000006 NJ __ _ 


00101 

00101 

00103 

00103 

00104 

00105 

00106 
00110 
oom 

00114 

00115 
00120 
0012 1 
00123 
00126 

00130 

00131 

00132 
00134’ 

00136 

00137 
00140’ 

00141 

00142 
0014 5 
0 014 7 


1* - SUBROUTINE’ ELMATStC~S'7cL t NUMNP,'NUHELTNPE",’N0DE _ ,NN,CD,IBDT,'iBD,SBd", “ ” “000036 

2* 1NBS,L1,L2) _ __ 000036 

3* DIMENSION NAME <2 1 i CS"(N>E ,NPE 1 ,CL ( NPE 1 JnODE C NUMEL7nPE ) ~ “ '”000036 "’’’ 

4* 1 ’ , C 0 ( NPE , NPE I _ _ __ _ 000036 

5* ■" DIMENSION 13 D T ( 3, 31, 1 BD ( NBS ,3,3)^SBD(NBS*3 ,3) “ “" 000036 

6* COMMON /PAROOF/ MAXDOF »NGO ’ 000036 

7* IF ( I B 0 T ( L f’,L2 i~ V E 0 •" 0 1 G 0*T 6 145 ' " "”000036 

8* II-IBDT (LI ,L2) 000040 

9* DO 140 1-1,11 ' ' ' ‘ " ” “ “ '• ’ 000055 

10* _ IE-IBD(I,L1,L2> _ __ 000065 

11* 'DO 125 J=1,NPE "" ' V ’ 000074 

12* NJ=NODE(NN,J> _____ , 000101 

13* * ~ IF (NJ .NEl IE) GO TO 125 ’000103’ 

14* 00 120 K-l , NPE 000113 

15* '120 CS t J ,K 1 =0.0 “ ' ' - - - ■ 0001 13 

16* _ CS(J,J)-1»Q • __ 0001 14 

17* CL(J)=SBD(I,L1,L2V“ ~ ’ " ' ’0001 16 

_ 18* 125 CONTINUE ■* 000131 _ 

1 9 * i 4 0 ' CONTINUE ' *'■ — ^ “ ” 1 I 000131 

20* 145 CONTINUE , r '* '' 000131 

21* NAME(1)=4HCS “ 000131 

22* NAME(2)-4H ' _ _ 000132 

23* " ’ CALL OUTMAT ( NAME »CS",NUMNP ,1 »NODE ,NUMEL jNPE »NN^L YlT "" 000134 

24* 00.150 1 = 1 , NPE _ ___ _ __ 000150 

25* 1.50 CO ( I , 1 ) =CL ( I ) " * 0 0 U 1 6 0 

26* NAME ( 1 ) =4HCL 00016? 





-87 


MATS ' ~ DATE 6 i~0 9 7 8 


□ □ISO 

27* 

N A ME ( 2 ) -4H 


000164 

00151 

28* 

CALL 0 U T M A T 1 N A M E.^0 0- 1 1 jJ.. N O D£ , N g M £ L j N P E , N N j Lil i 


000166 

00152 

29* 

RETURN 


000202 

00153 

30* 

END ..... 


. 00031} 


END OF COMPILATION: " NO DIAGNOSTICS. 

SHDG |P HATX . . . 


> 



M ATX 


DATE 010976 


SFOR.S HATX.HATX 
_HS A E3. -01/09/78- 23:44: 0 9 <1,1 


SUBROUTINE ELMTRX ENTRY POINT 000231 


STORAGE USED: CODE ( 1 1 000320: D AT A < 0 > 0 0 0057; BL A NK C0 HH0 N(2 > 000000 

COMMON BLOCKS: . 

, 0003 PARDOF 000002 


EXTERNAL REFERENCES t BLOCK , NAME) 


0009 

0005 


OUTMAT 

NERR3S 


i 

a> 

CO 


STORAGE ASSIGNMENT (BLOCK, TYPE , "REL ATI v£" LOC AT ION , NAm'eT 


0001 

000057 

112G 

0001 


000066 

1 16G 

0001 

000105 1 24 G 

5 ob i 

“ 

000113 

125L 

0001 

000162 

14 5G 

0001 

000123 

1 45L 

0000 

I 

000003 

I 

0000 

I 000004 IE 

0 00 0 

I 

000002 

II 

0000 

000016 

INJPS 

NGD 

0000 

0000 

I 000005 
I 000006 

j 

NJ 

0000 

I 

000007 

K 

0003 

000000 MAXDOF 

0 00 0 

I 

000000 

NAME 

0003 

' booooi 


00101 

00101 

00103 

00103 

00104 

00105 


1 * 

2 * 

3* 

4* 

5* 

6* 


SUBROUTINE ELMTRX < C S , CL , NUMNP , (TuMEL , NPE , NODE , NN , C 0, IBOT ,IBD, VBD, 
NBM, L,IPARAM) 

DIMENSION NAME (2 ) , C S( N P E /(TP E >,CL (NPE > .NODE < NUMEL , NPE) 

,CD I NPE , NPE ) 

DIMENSION 180 ( NBM ,”l ) , VBD (NBM , 1 I BDT ( 1 1 
COMMON /PARDOF/ MAXDOF »NGD 


000016 

000016 

000016 

000016 

000016" 


00106 
001 10 
00111 

00114 

00115 
00120 

7* 

8* 

4* 

10* 

11* 

12* 


IF (IBOT(L) ,EQ. Of GO TO 14‘S ' 

II=IB0T(L> 

0 1) 1 4 1) ’ 1 ~ 

1E=IBD(I,L) 

' 000016 
000022 
0UU047 
000057 
000066 
000073 


00 125 J- 1 , NPE - 

N J-NODE ( 9 N , J ) 

00121 

"" 13* 


IF (NJ .NE. IE 1 GO TO 125 

000075 

00123 

14* 


DO 120 K-l , NPE 

000105 

00126 

'"'IS* 

120“ 

CS(J,K>=0.0 

000105 

00130 

16* 


CS ( J, J > = 1 .0 

000106 

00131 

'“’17* 


CL(J)=VBDti,L) ' 

000110 

00132 

18* 

125 

CONTINUE 

000123 

00134' 

19* 

1 4 D 

CONTINUE 

000123 

001 36 

20* 

145 

CONTINUE 

000123 

00137 

” 21* 


NAME ( 1 ) =4HCS ~ " ■' 

000123 

00140 

22* 


NAME <2>=4H 

000124 

00141 

23* 

- 

CALL OUTMAT ( NA ME", C S ,NUMNP \ 1 "/NODE , NUH EL , NPE"7NN',Tl, I PAR A Ml ~ 

000126 

00142 

24* 


IF ( I P A 1? A M .GT. 1) RETURN 

000142 

00144 

25* 


00 ISO 1 = 1, NPE ~~ ” 

000162 

■00147 

26* 

150 

CP !1 , 1 ) ^CL ( I ) 

000 1 6? 


* 



H ATX 


DATE 010978 


00151 

00152 

27* 

28* 

NAME (1 >=4HCL 
NAME (2>=4H 


000164 
000 166 

00153 

29* 

CALL OU THAT (NAME, CD, 1,1 .NODE ,NUMEL,NPE , NN ,L , 1 > 


000170 

00154 

30* 

RETURN 


000204 

00155 

31 * 

EN1 


000317 


END OF COMPILATION: NO DIAGNOSTICS. 




3HDG i P 


HESHUP 



HESKUP 


DATE D10978 


«FOR,S MESHUP,HESHUP 

MSA , _E 3. .-01/ 09/ 78 -2 3:44:1 1 (1,) 


SUBROUTINE MESHUP ENTRY "POINT 0~00470 


STORAGE USED: CODE ( 1 D00520J DA-TA (O) 000217; BL ANK CQ MH0N(21 OODOOO 


EXTERNAL REFERENCES (BLOCK, NAME~) 


0003 

NPRTs 

0004 

NI02S 

00 0 5 

NSTOPS 

0006 

NERR3S 


STORAGE ASSIGNMENT “(BLOCK", TYPE, RELATIVE LOCATION, NAME) . 


0001 


' 000435 

100L 

0001 


00 0 1 0 2 

~i 1 l 

0000 

■ “ * 

000131 

1200F 

0 001 

* 

000051 

122G~ 

"bo 01 

000070 

1276 

0001 


000115 

1 4 5 G 

0001 


000103 

15L 

0001 


000151 

152G 

0 001 


000175 

163G 

D001 


000200 

166G 

U001 


000241 

176G 

0001 


000106 18L 

0001 


000260 

210G 

0 001 


0G0277 

222G 

0001 


000321 

Z33G 

0001 


00D156 

35L 

0001 


000170 

4 OL 

0001 


000372 

66L 

0 001 


000420 

70L 

DO D 1 


000426 

8 OL 

0000 

R 

000124 

DEO 

0000 

R 

000130 

DEX 

0000 

R 

000127 

DFY 

0 00 0 

R 

000115 

OF Z 

0000 

R 

00012S 

OF 1 

0000 

R 

000126 

OX 

0000 

I 

00011 3 

I 

0000 


000144 

1NJPS 

0 00 0 

I 

000114 

U 

0000 

I 

000121 

K 

0000 

I 

000122 

M 

0000 

I 

000110 

MJ 

0000 

1 

OQOOOO 

MOVE 1 

0 00 0 

I 

000014 

M0VE2 

0000 

I 

000030 

M0VE3 

0000 

I 

000044 

MOVE 4 

0000 

I 

000060 

MOVES 

00 00 

I 

000074 

MOVES 

0 00 0 

I 

000116 

N 

□ 000 

I 

000120 

NO 

0000 

I 

000123 

N J 

0000 

I 

000117 

NT 




















• 














00101 1* SUBROUTINE ME SH UP ( NPM T , NE MT , NP ELG , NP E • I U , 1 0 RD C , NE T, , NP ST , DE L T , _ 000051 

0D101 2# 1 'koDE,NOD,DIS,"x,'xPRV,”VERPRV‘) 0D0051 

00101 3* c 000051 

00101 4*’ cV*****************V*^r*** " ' OOOOSl *” 

tlUlOl 5* C _ 000051 

00 1 0 1 6*‘ c ' UPDATE HESH ‘ "" ' ' OOOOSl 

00101 7* C 000051 

00101 " 8* ” C************************* ‘ ■“ _ "’000051 

00101 9*, C 000051 

00103 “ ~10* " D”lMEVsi6N - K6DE <NPHT"> , NQEU NEMT ,NPELE).,DIS(NPHT,3),X(NPHT,3) » 000051 

00103 11* 1 XPRV 1NPMT , 3 ) ,VERPRV (NPMT ,IU 1 ' 000051 

00104 12* ' DIMENSION MO VE 1 ( 4", 3’) , MO VE2 ( 4 , 3 MOVE 374 3 >“ MOVE 4 ( 4 , S^lTHOVETc'V., 31 , ' “ 000051 

00104 13* I .MOVES (4 ,3 I ,MJ (3)" 000051. 

00105 ’ 14* DATA M0VE1/ 1 , 4 , 5 ,8 , 1 ,7 ,1 3 , 1 9 , 1, 10 , 21 , 30/ ' ~ OOOOSl”'" 

00107 15* DATA MOVE 2/ 1 , 2 , 5 , 6 , 1 , 3 , 1 3 , 1 5 , 1 , 4 , 2 1 , 24/ .• 000051’ 

00111" "16* OAT. A MOVE 3 /i ,2*3 ,4 , i"7 3,5 ,*7 * 1 ,4 ,7 , 10/ ^ “ OOOOSl" 

00113 17* DATA MOVE 4 / 2 , 3 , 6 , 7 , 3 , 5 ,1 5 , 1 7 , 4 , 7 , 24 , 2 7/ ’ _ _ 000051 

00115 ‘ 18* DATA M0VE5/4 , 3,6 ,7 , 7 ,5 , 19 ,17 , 10,7 ,30 ,27/ “ OOOOSl 

00117 19* DATA H0VE6/5,6,7,8,13,15, 17,19,21 ,24,27,30/ __ _ 000051 

00121 20* DO 1U I~ 1 , NPS T 000051 

00124 21* . IF (KOOE(l) .EG. 0) GO TO 18 000062 

00126 ’ 22* DO 15 J=l,3 - - • 000070 

00131 .23* DFZ=OIStI,J)*VfRPRV(I ,JJ 000070 



MESHUP 


DATE 010978 


00132 

24 + 


IF I0FZ1 10.11.15 

000072 

.00135 .. 

25* 

... JO. 

DJSl I.J)=DEU*VERPRV(I.J)/VERPRV(I.S > 

000074 

00136 

26* 


GO TO 15 

COOIOO 

00137. 

27* 

11 

DIS(I.J>=0.0 

00010? 

00190 

28* 

15 

CONTINUE 

000115 

00192 

29* 

18 

CONTINUE 

000115 

00199 

30* 


DO 40 I=1,NPST 

□ 00 1 1 S 

00197 

31* 


IF (KOOE(I) .EQ. 0) GO TO 35 

000131 

00151 

32 + 


00 30 J=1 , 3 

oooist 

00159 

33* 

30 

X(I,J)=XPRW(I t J>+OIS(I*J» 

000151 

00156 

34* 


GO TO 40 

000154 

00157 

35* 

35 

X ( I, J>=XPRV<I .J> 

000156 

00160 

36* 

40 

CONTINUE 

000200 

00162 

37 + 


DO 90 N- 1 , NE T 

000200 

0016b 

38* 


00 80 I "1 i NPE 

000200 

00170 

39* 


NT -I 

000200 

00171 

40* 


ND=N001N,NT> 

000206 

00172 

4 1* 


IF (KOOE(ND) .EQ. 0) GO TO 80 

000210 

00179 

4 2* 


MJI1 )=0 

000214 

00175 

4 3* 


DO 5ft J = 1 , 4 . . .. . 

00024 1 

00200 

44* 


IF (NT .EQ. M0VE1 (J, IORDC) X M J ( 1 1 =M0 V E4 ( J ,IORDC > 

000241 

00202 

45* 


IF (NT .EQ. M.0VE4JJ,I0RDC ( ) „HJUJ. = HO.VEl(J,IOROqj 

__ 000245 

00209 

46* 

58 

CONTINUE 

000254 

00706 

4 7* 


MJ<2 )=0 

000254 

Q0207 

48* 


DO 60 ■ J-l ,4 

000260 

002 1 2 

49* 


IF (NT .EQ. M0VE2( J.IOROC) > M J ( 2 ) =M0 VE S ( J , 1 0 R DC > 

000260 

00214 

50* 


IF (NT .EQ. MOVES ( J . IORDC 1 ) M J ( 2 1 =M0 VE2 l J , IOR DC > 

000264 

00216 — . 

51* 

60 

CONTINUE 

000273 

00220 

52* 


MJ(3)rQ 

000273 

00221' 

5 3* 


00 62 J-l, 4 

000277 

00229 

54* 


IF (NT .EQ. HOVE 3 ( J , IORDC ) ) HJ ( 3 1 =M0VE6 < J .IORDC 1 

000277 

00226 

55* 


IF (NT .£0. H0VE6IJ, IORDC) ) M J ( 3 ) ~M0 V E 3 ( J . I ORDC )_ 

000303 

00230 

56* 

62 

CONTINUE 

. 000321 

00232 

57* 


DO 70 K=1 , 3 

00 D 32 1 

00235 

58* 


H=MJ (K ) 

000321 

00236 

59* 


IF (M .EQ. 01 GO TO 70 

000323 

0 0240 

60* 


N J=NOO ( N, M ) 

000325 

il 0 J 4 1 

61* 


DFOsKPRV >=X (Nj,k> 

000340 

00242 

62* 


DF 1 ( NO ,K ) -X (NJ,K > 

000343 

0024 3 

6 3* 


DFZ =OFO*OF 1 

000346 

00244 

64* 


IF { OF 2 ) 65,65,66 

000350 

0024 7 

65* 

65 

OX-DELT*VERPRV(ND,K)/VERPRV (ND.5 J 

000352 

00250 

66* 


D 1 5 ( ND , K > - Q X 

000356 

00251 

67* 


OX=ABS (OX 1 

000357 

00252 

68* 


IF (DX . GE . AB 5 ( DFO ) 1 GO TO 100 

000361 

00254 

69* 


X(ND,K>=XPRV(ND,K)+DIS(ND,K) 

000365 

00255 

70* 


GO TO 70 

000370 

00256 

71* 

66 

0FY=ABS(DF1 1-ABS (0F01 

000372 

00257 

72* 


IT ( OF Y ) 70,70,68 

000375 

00262 

7 3* 

68 

DFX-ABS(XPRV(ND,K|-X(ND,K) ) 

000377 

0026 3 

7M * 


UX=DEt-T*VERPRV(ND,K)/VERPRV(ND,51 

OD0403 

00264 

75* 


IF (ABStOXl .GE. OFX ) GO TO 70 

00040T 

00266 

76* 


OlblND.KlrDX 

OOU413 

0026 7 

77* 


X (Nf),K ) : X PR V ( NO , K ) »DX 

0004 15 

00270 • 

78* 

70 

CONT INUt 

00 J 4 3 1 

00272 

79* 

80 

OONT INUt' 

000 4 3! 


MESHUP 


DATE 010978 


00274 80* ' 90 CONTINUE ; D00431 

00276 81* RETURN ■ l_00043i 

00277 82* 100 PRINT 1200 6n04 - 35 

00301 8 3* STOP 000440, 

00302 84* 1200 FORMAT." ~( 2X , • ********** REDUCE THE TIME STEP, MESH T 0 CO ARSE^'l OOOs’lT 

00303 85* END ___ 000517 


END OF COMPILATION: NO DIAGNOSTICS. 


$HOG,P .NTAgS. 



-93 


NTABS 

3ASM.S NTA8S, NTABS 

_A5M 14R1.RL72R1 0 1/09^ jT8 ».«* 5 1.4...JJUJ. 


l. .02 oooooo oo oo oi ooobbo 

00000 l._.00.__00 0Q_Q000pp_ 

000002 ’ ob "bo ad"obooba 

000003 00 00 00 oooooo 

000004 00 00 00 oooooo 

000005 DO 40 00 OOOOOO 

000006 00 44 00 oooooo 

000007 _ 00 41 oo oooooo. 

000010 ' 00 DO 00 oooooo 

000011 00 00 oo oooooo 

000012 00 00 00 000000 

000013 00 00 DO OOOOOO 

000014 no 00 00 OOOOOO 

000015 00 00 00 OOOOOQ. 

000016 00 00 00 OOOOOO 

000017 CIO 00 00 oooooo 

D00020 00 00 00 OOOOOO 

000021 00 DO 00 OOOOOO 

000022 00 00 DO OOOOOO 

000023 00 00 00 000000. 

"000024 00 00 00 OOOOOO 

000025 00 00 00 OOOflOD 

000026 00 00 00 OOOOOO 

000027 00 DO 00 OOOOOO 

000030 00 00 00 oooooo 

000051 00 00 00 oooooo 

000032 ' 00 00 00 OOOOOO" 

000033 00 00 00 OOOOOO 

000034 00 00 00 OOOOOO 

0D003S 00 UO 00 OOOOOO 

000036 00 OD 00 OOOOOO 

000037 00 00 00 OOOOOO 

000040 . 00 00 00 oooooo 

000041 no 00 oo ooooco 

cJUtibu £ oo 00 00 JOOQOO 

000043 00 DO 00 OOOOOO 

000044 00 00 00 OOOOOO 

000045 00 00 00 oooooo.. 

000046 00 DO 00 booood"" 

■ 000047 00 00 00 OOOOOO 

000050 00 DO 00 OOOOOO 

000051 00 00 00 oooooo, 

000052 00 00 00 OOOOOO' 

_ 000053 00 00 00 OOOOOO 

000054 00 00 00 OOOOOO" 

000055 00 00 00 000000 

000056 00 00 00 OOOPUO 


NO END IMAGE 


END ASM. ERRORS 


NONE 


DATE 010978 



END 

END 


ASSEMBLER IMAGE 



NTABS * ' DATE 010978 

_____ ________ . ____________ _____ 



OPENT 


DATE 010978 


aroR.S OPENT »OPENT 

HSA. £3 -01 709/78-2 3 ?44 : 18 .(J,).. 


SUBROUTINE OPENTP ENTRY POINT 000766 

OPENF ENTRY POINT 001054 

REAOF ENTRY POINT’"6oU42 

SKIPF ENTRY POINT 001242 


STORAGE USED: CODE ( 1 1 00 1 326 ; ' D A T A ( 0 1 ’ 000 1 0 3 ; BLANK C0HH0N~(2 f OOOOOO 


EXTERNAL^ REFERENCES (BLOCK i NAME) 

0003 NRDUS 

0004 N I 0 2 5 

0005 N 1 0 2 $ 

1 0006 ’ NWDUS 

0007 NBSPt _ 

0010 NERR45 

0011 NERR3S 


> " STORAGE ASSIGNMENT ’"""(BLOCK,”" TYPE, RELATIVE LOCATION, NAME) 


0001 

00D433 

10L 

0001 

000627 

IDOL 

0001 

000152 

100 1L 

0 001 

000155 

1002L 

0001 

000160 

1003L 

0001 

000163 

1004L 

0001 

000166 

1005L 

00 01 

000372. 

101 1L 

0 00 1 

000375 

1 0 1 ?L 

0001 

000400 

1 0 1 3 L 

0001 

000403 

1014L 

□ 001 

0DD575 

10201 

0001 

000600 

1021L 

0 001 

000603 

1022L 

□ 001 

000606 

1023L 

0001 

0006 H 

1 024 L 

0001 

000717 

1 0 3 1 L 

0001 

D00722 

1032L 

0 00 1 

000727 

1 03 4 L 

0001 

000037 

123G 

0001 

000063 

1 36G 

000 1 

000107 

1516 

0001 

000123 

1 60 G 

0 001 

000644 

200 L 

0000 

000012 

200 IF. 

OODO 

00001.7 

2002F 

□ 000 

D0002S 

20 1 1 F 

. 0000 

000033 

2012F 

0 00 0 

000040 

202 1 F 

0000 

000045 

2022F 

0000 

000056 

20 3 1 F 

0001 

000663 

2 2 0 L 

0001 

000673 

230L 

0 00 1 

000240 

233G 

0001 

000275 

25 3 G 

0001 

000310 

2 61 G 

0001 

000341 

276G 

0001 

000366 

3 1 2 G 

0 00 1 

000461 

352G 

0001 

000512 

362G 

0001 

000710 

472G 

0001 

000544 

55L 

0001 

000553 

6 OL 

a oo l 

000563 

70L 

0001 

000150 

8L 

0000 

0000 1 1 

8000F 

□ 001 

000624 

99? L 

0000 

I 000004 

I 

0 00 0 I 

0000D6 

II 

0000 1 

00006S 

INJPt 

0000 

I 000002 

I WD 

0000 I 

000010 

IX 

0000 

I 000003 

K 

0 00 0 I 

000007 

L 

0000 I 

000005' 

LAST 

0000 

I 000001 

NOUT 

0000 I 

OOOOOO 

UNIT 






, , _ 





00101 1* SUBROUTINE OPENTP ( NNN , N , NWD , IERR, ILB ) ~ """OOOOOO 

00101 2* C ' NNN NUMBER OF'^UNIT _ __ OOOOOO 

00103 3* INTEGER UN I T , N ( I ) ' ” ' “ ‘ ODOODO 

00104 44 DATA NOUT/6/ OOOOOO 

00104 ‘ 5* C OPENTP FIRST CALL TO PROCESS NASTRAN TAPE'h’a’DE BY~ OUT PUT2 ~-~~f TApE HEADER OOOOOO 

00104 6* C __ OPENF EVERY D A TA-B L OCK _H A S TWO RECORDS. 1_. NAME 2.TRAILEJR _ OOOOOO ' 

00104 74 C READF TRUE NASTRAN OATA-BLOCK BEGINS FROM* THIRD"", RE CO RO OOOOOO 

00104 84 C _ A .IS ADRESS OF UESR CORE TO READ-IN 000000 

00104 94 C ’ WD NUMBER OF WORDS TO READ (DESIRE INPUT) (RESULT OUTPUT) ' ' OOOOOO 

00104 104 C FLAG NUMBER OF WORDS LEFT IN THE CURRENT RECORO, (OUTPUT) OOOOOO 

00106 114 lEh’R^O OOOOOO 

00107 .124 UNI T-NNN 000000 

U011U 134 8000 F0RMAT(?2A6> ‘ ' 000002 

001 1 1 144 I W D - N W D 00000? 


OPENT 


DATE 010978 


00112 

0011*4 

15 + 

16 + 


IF(ILB.EQ.O) 60 TO a 
READ (UNIT, 80001 K 

000004 

■ 000006 

00117 

17* _ 


IF1K.NE.3) 'GO TO 1001 

000014 

00121 • 

18* 


READ(UNJT,8000) (N(I1jI-JjK1 

D00023 

00127 

19* 


READ1UNIT, 80001 K 

000042 

00132 

20 + 


IFIK.NE.7) GO TO 1002 

000050 

0013*1 

21* 


READIUNIT,8000> < N ( I > , I =*4 , 1 0 ). 

000053 

001*12 

22* 


READ (UNIT, 8000) K 

000066 

001*45 ‘ 

23* 


IFtK.NE.2) GO TO 1003 

000074 

001*47 

2*4* 


READ(UNIT,80Q0> (N(I) ,1=11,12) 

-000077 

001 SS 

25* 


WRITE (NOUT ,2001 ) UNIT.tNU) ,1 = 1,12) 

000112 

GDI 64 

26* 

2001 

FORMAK’D UNIT = * ,I3,SX,3I*4,9A<4 ) 

000126 

00165 

27* 


RE AD ( UNIT , 8000 > K 

000126 

00170 

28* 


IF(K.NE.-l) GO TO 100*4 

000134 

00172 

29* 


READ(UNIT ,8000) K 

000137 

00176 ’ 

30* 


IF(K.NE.O)' GO’ TO 1005 

000145 

00177 

31* 

8 

CONTINUE 

000150 

00200 

002dl 

32* 


L A S T =0 

000150 

33* 


GO TO 999 

000150 

00202 

3*4* 

1001 

IERR=IERR-1 

000152 

002 03 

35* 

1002 

IERR =IERR-1 

■000155 

0020*4 

36* 

1003 

IERR=IERR-1 

000160 

00205 

37* 

100*4 

IERR=IERR-1 " r 

000163 

00206 

38* 

1005 

IERR=IERR-1 

000166 

D0207 

39* 


WRITE(NCUT,2Q02) IERR 

000170 

00212 

*40* 

2002 

FORMAT < ’ 0 OPENTP ERROR IERR='il6) 

000176 

0021 3 

*4 1* 


GO TO 999 ■ 

000176 

0021 3 

*42* 

C 


000176 

0021*4 

*43* 


ENTRY OPENFdERR.ITRL)' 

000177 

00216 

*4 *4 * 


DIMENSION ITRL(l) 

000177 

00217 

<45* 


IERR=-1 0 

000177 

00220 

*46* 


READ(UNIT ,8000) K 

000201 

00220 

*4 7 * 

C READ AGAIN IF EOF IS FOUND 

000201 

00223 

*48* 


IF (K.EO.O) READ (UNIT ,8300) K 

000207 

00227 

* 49 * 


IFIK.NE.2) GO TO 1011 

000217 

00231 

50* 


REAOtUNIT ,8000) (N(I), 1=1,2) 

000226 

00237 

51* 


READ (UNIT, 8000) K 

000243 

002*12 

52* 


IF(K.NE.-l) GO TO 1012 

000251 

002 * 1*4 

53* 


RE AD (UNI T , 8000 > K 

000254 

002*47 

5*4 + 


IFIK.NE.7) GO TO 1013 

000262 

00251 

55* 


READ (UNIT ,8000) (kl(I),I = 3,9) 

000265 

00257 

56* 


WR I TE ( NOUT ,2011) (N(I),I=1,9) 

000300 

00265 

57* 

2011 

FORMAT ( ' 0 * »4x»2A4»* TR AILER = * ,718 ) 

000313 

00266 

58* 


REA 0 (UNIT ,8000 ) K 

000313 

00271 

59* 


READ(UNIT,8000) K 

000321 

0027*4 

60* 


READ (UNIT, 8000) (Nil), 1=1, K) 

000327 

00302 

61* 


READfUNIT ,8000) K 

000344 

00305 

62* 


IFtK.NE.-3) GO TO 1014 

•’ 000352 

00307 

63* 


LA ST-K 

r ‘ ; ~~ 000355 

00310 

6*4* 


1 E RR =0 

000357 

00U1 

65* 


DO 5 1=1,7 

000366 

0031*4 

66* 

5 

ITRL(I)=N(I+2) 

000366 

0031 6 

67* 


GO TO 999 

000370 

0031 7 

68* 

1011 

IFRR=IERR-1 

000372 

00320 

69* 

1012 

IERR=IERR-1 

000375 

00 32 ) , 

70* 

1013 

I) R R = I E R R - 1 

ono*4uo 



OPENT 


DATE Q1 0978 


00322 

71* 

1014 

IERR=IERR-1 

000403 

00323 

72* 


WRITE (NOUT. 2012) IERR 

000405 

00326 

73* . 

2012 

FORMAT ( *0 OPENF ERROR IERR=*,I6) 

000413 

00327 

74* 


60 TO 999 

000413 

00327 

75* 

C 


000413 

00330 

76* 


ENTRY REAPF<*,*,A.WD.FLAG,IERR) 

000414 

00332 

77* 


INTEGER A(ll, WO, FLAG 

000414 

00 333 

78* 


IERRz-20 

000414 

00 3 34 

79* 


II-O 

000416 

00335 

80* 


L=WO 

000417 

00336 

8 1* 


READ (UNIT, 8000) K 

D00421 

0034 1 

82* 


1 F ( K ) 1020,100,10 

000427 

00 344 

8 3* 

10 

I F ( K . G T . L ) L =K 

000433 

0031)6 

84* 


IFUrfD.LT.K) GO TO 1021 

000443 

00 3SU 

85* 


RFAD (UNIT, 8000) < N ( I > , I = 1 , K ) 

000447 

00366 

86* 


L-L-K 

000464 

00357 

87* 


If tll+K.GT.WD) K-WD-II 

000467 

00361 

88* 


DO 40 1=1, K 

000477 

00 364 

89* 

40 

A ( 1I + I >=NU) 

000512 

00 366 

90* 


ii=ii+k 

000514 

Ou 3 67 

91* 


REAO (UNIT, 8000) K 

000517 

00372 

92* 


IFtKt 50,1022,60 

000525 

003 76 

93* 

50 

IF (K.NE. LAST-1) GO TO 1023 

000530 

00 3 77 

94 * 


L A S T = K 

000534 

U-JMOO 

95* 


FL AG = 1 

000536 

00401 

96* 


1 F ( L 1 1024,70,55 

000540 

00404 

97* 

55 

WO = I I 

000544 

00 606 

98* 


IFRR=0 

D00545 

004 00 

99* 


RETURN 2 

000546 

00407 

100* 

60 

I F ( L ) 1024,65,10 

000553 

UD4 12 

101* 

65 

F L AG =0 

000556 

004 13 

102* 


BACKSPACE UNIT 

000557 

004 14 

103* 

70 

IF(RD.GT.II) GO TO 55 

000663 

00416 

104* 


UO = I I 

000566 

004 17 

105* 


1 ERR = 0 

000570 

00420 

106* 


RE TURN 

000571 

00421 

107* 

1020 

IERRrIERR-1 

000575 

OOi) 22 

1 OH* 

m?i 

ie««:ieun-i 

000600 

00423 

109* 

1022 

IERR=IERR~1 

000603 

00424 

110* 

1023 

IERR=IERR-1 

0006G6 

004 25 

111* 

1024 

jerr-ierr-i 

000611 

00426 

112* 

1025 

IERR=IERR-1 

0006 1 3 

0 0 4 2 7 

1 1 3* 


WRITE(N0UT,2021) IERR 

000615 

00432 

114* 

202 1 

FORMAT* * 0 READF, ERROR IERR = * t I6) 

000624 

00433 

115* 

999 

RE TURN 

000624 

00434 

116* 

100 

C ONT 1NUE 

000627 

004 35 

1 1 7* 


WRITE (NOUT, 2D22) UNIT 

000627 

00440 

00441 

118* 

119* 

2022 

FORMAT (’0 RE A OF ENCOUNTERED EOF. .MARK 
RETURN ’l 

WHILE REAO'ING • , 14 ) D00634 

1 . 000634 

00441 

120* 

C 


D00634 

004 41 

121* 

C 


000634 

00442 

122* 


ENTRY SKIPF (IERR) 

D(1 0 6 4 0 

004 4 4 

123* 


I E R R = - 3 0 

[in af.4 n 

00445 . 

124* 


I X - 0 

(>■1364? 

00446 

l 

200 

READ (UNIT ,80001 K 

11.106 4 4 

0 0451 

126* 


I F t K 1 210,2 2 0,230 

(1(10651 



OPENT D A T E ~ 0 1 0~9 7 fl" 


00454 

127* 

210 

IF (LAST-1. NE S) GO TO’ 1031 ' 

000650 

Q 04 5 6 

128* 


L AST-K 

000660 

00457 

129* 


GO TO 200 

000661 

00060 

130* 

220 

IFlIX.EQ.il GO TO 1032 

000663 

00462 

131* 


LAST=Q 

000665 

0006 3 

' 132* 


IERR=0 

00Q666 

004 60 

133* 


RETURN 

000667 

00465 

130* 

230 

CONTINUE 

000673 

00066 

135* 


IF1K.GT.IUD> GO TO 1030 

000673 

00070 

136* 


READ (UNIT,8000) (NtIl,I = l,K> 

000676 

00 0 76 

137* 


IX = 1 

000713 

00077 

138* 


GO TO 200 

000715 

00500 

139* 

1031 

IERR=IERR-1 

000717 

005 01 

100# 

1032 

I ERR-IERR-1 

000722 

00502 

141* 

1033 

IERR=IERR-1 

000720 

0 0603 

102* 

1030 

IERRrIERR-1 

000727 

00500 

103* 


WRITE (NOUT ,2031 ) IERR 

000731 

00507 

s 140* 

2031 

FORMATt’Q SK1PF ERROR IERR=*.I5) 

000737 

0U6 10 

145* 


return 

000737 

0051 1 

106* 


E Kid 

001325 


> 

1 

vO 

OO 


END OF COMPILATION: NO DIAGNOSTICS’. 


3H0G » P 


OUTM 



-99 


OUTM 


DATE 0109,78 


3F0R t S OUTM, OUTM 

H5 A E 3 ~01/09/78-2 3:9 9:?l,.(C , 


SUBROUTINE OUTMAT 


ENTRY POINT 000372 


STORAGE USED: COOE(l) 000956; .0 A T A ( 0 000 1,09 ; . 8LA NK,_COMHON .0000 0Q_ 

COMMON BLOCKS: 


0003 . LAGRGN 00Q0Q5 
0009 ' PARDOF 000002 ’ 


EXTERNAL REFERENCES (PtQQK, NAME l, 


0005 
' 0006 
0007 
0010 
coil 
00 12 
001 3 


SORT 
MATRX 
COLUHN 
ELEMNT 
WE OF 
NERR2S 
, NERR3S 


















— 

-- 



— . , 


— 

— 

— 

... 

.. 


— . 




STORAGE 

ASSIGNMENT 

(BLOCK, TYPE 

, relative Location, 

NAME ) ' 

-- 

— 

- 

- - - 

- 

- 




- 

0001 


000029 

1001 

0001 


000135 

120L 

0001 

000059" 

122 G 

d’ooT 


000066 

125G 

0001 


000112 

135G 

0001 


000197 

1 5 OL 

pool, 



000165 

1 59 G 

.0001 

000290 

167G 

0 001 


000257 

173G 

0001 


.000213 

200L 

000 1 


000303 

203G 

0001 


000399 

2 20 G 

0001 

000331 

2 2 OL 

0006 

6 

000091 

CDP 

0000 

I 

000090 

OOF 

0000 

I 

000099 

I 

0000 


000056 

INJPS 

0003 

000002 

IORDL 

0 00 0 

I 

000096 

J 

0000 

I 

000095 

K 

00 01 ) 

I 

000050 

LEE 

0000 

I 

000097 

LI 

0000 

I 000U52 

LL 

0 009 

I 

000000 

MAXDOF 

0003 


000003 

NBWT 

0000 

I 

000093 

NCOLMN 0003 


000001 

NELT 

0009 

OOOOOl 

NGD 

0 00 3 


000009 

NHBWT 

0000 

r 

000051 

NJ 

0003 

I 

000000 

NPST 

0000 

I 

000000 

NY 
















- 

— 


- 


. . - - 

. — 





. . 



.... * 



00101 

D0103 

00109 

1* 

2* 

3* 

SUBROUTINE OUTM A T ( N AME , CO , NUMNP , NFOR M , NOOE , NUMEL ,NPE ,NN,L , IRARAM) 
DIMENSION NAME < 1) ,C0(NPE, U ,NODE<NUKEL,NPE> 

DIMENSION NY132) 



000005 

000005 

000005 

00109 

9* 

C 



000005 

00105 

5* 

INTEGER DOF 



000005 

00105 

6 * 

C 



000005 

00106 

7 * 

COMMON /LAGRGN/ NP S T , NEL T , I ORD L ,NBWT , NHB W T 



□00005 

00107 

8 + 

COMMON /PARDOF/ MAXDOF, NGO 



000005 

00107 

9* 

C 



000005 

001 10 

10* 

DATA OOF/6 7 ' ‘ 



000005 

00110 

11* 

C 



000005 

00112 

12* 

DOUBLE PRECISION CDP 



0 0 0 0 U 5 

00112 

13* 

C 



000005 

00113 

19* 

CALL SORT(NODE,NY,NN,NPE, NUMEL) 



000005 

00119 

15* 

GO TO (103, 2001 , IPARAM 



000019 

00115 

16* 

100 NCOLMN: NF>S 1 



000029 

001 16 

17* 

IF (NUMNP . E 0 . 11 GO TO 150 



000025 



OUTH~ 


DATE 010978 



00120 

00121 

18* 

19* 

! 

CALL MATRX (NAME .NCOLMN , NCOLMN ,NF0RH , 1 > 
00 120 I=1.NUMNP 




000030 

000045 


001 24 

20* 


DO 120 tUl.NPE 




000066 


00127 

21* 


IF 11 .N£. NOOE(NNjiK) .AND. I *NE . NUMNP1 

GO 

TO 

120 

000077 


00131 

22* 


CALL _ COLUMN ( I J 




000102 


00132 

23* 


IF (I .NE. NOOEINN.Kl) GO TO 120 




000105 


00134 

24* 


DO 110 J=1,NPE 




000112 


00137 

25* 


LI = NY ( J> 




000112 


oomo 

26* 


CALL ELEMNT (NODE(NN»LI> »CO(LI»K) ) 




000113 


OOIMI 

27* 

110 

CONTINUE . 




000141 


0011)3 

28* 

120 

CONTINUE 




000141 


00146 

29* 


CALL UEOF 




0Q0141 


0014 7 

30* 


RETURN 




000143 


00150 

31* 

150 

CONTINUE 




000147 


00151 

32* 


CALL MATRX (NAME ,1, NCOLMN, NFORH.l 1 




000147 


00152 

33* 


CALL COLUMN ( 1 > 




000155 


00153 

34* 


DO 160 J = 1 ,NPE! 




000165 


00156 

35* 


LI=NY(J) 




000165 


00157 

36 + 


CALL EL E MNT 1 NODE CNN ,LI j ,CD (LI , 1 )> 




000166 


00160 

37* 

160 

CONTINUE 




000205 


. 00162 

38 + 


CALL WE OF 




000205 


00163 

39* 


RETURN 




000207 


00164 

4 0* 

200 

NC OL MN-M A X DOF 




000213 

1—* 

00165 

4 1 + 


CALL MATRX (NAME, NCOLMN, NCOLMN ,NFORM ,2 ) 




000214 

o 

00166 

42 + 


DO 220 1-1 ,NUMNP 




000240 

o 

00171 

43* 


L1=D0F*II-1 J+L 




000246 


001 72 

44* 


DO 220 K=1,N?E 




000257 


0(1175 

45 + 


IF (I .NE. NODE ( NN , K ) .AND. I .NE. NUMNP ) 

GO 

TO 

220 

000270 


00177 

4 6 * 


CALL COLUHN(LI) 




000273 

■7 g 

no?no 

47* 


IF (I .NE. NO DE ( NN , K ) 1 GO TO 220 




Q0G276 

35 

00202 

48* 


DO 210 J- 1 , NPE 




000303 

Tj ul 

00205 

49* 


LEE=NY( J) 




000303 


00206 

50* 


N J- DOF* (NODE CNN, LEE >-i )*L 




000314 

5J2 

00207 

51* 


C0P=DBlE(CD(LEE,K)1 




ODD 32 1 


0021U 

52* 


CALL ELEMNT(NJ,CDPI 




000323 

00211 

53* 

210 

CONTINUE 




000335 


0021 3 

54* 

220 

CONTINUE 




000335 

r- Si 

. 00216 

55* 


LL=LI+1 




000335 


0U21 t 

56* 


DO ritl 1*LL .MAXDOF 




000340 

(/> 

00222 

57* 


CALL COLUMNCI) 




000344 


00223 

58* 

230 

continue 




000351 


00225 

59* 


call wi of 




' 000351 


00226 

60* 


RETURN 




000353 


00227 

61* 


ENO 




000455 


END OF COMPILATION: NO'"' dTaGNOSTTcs". 

— 


* * 

— 


aHOGtP 

SFCL 





S c 



SFCL 


DATE 010,978 


SFOR,S SFCL,SFCL 

HS A E3 - 0 1/ 0 9 / 7 3 7 2 3 : 4 H : Z2._ ) 

'SUBROUTINE SFCALL E N T R V POINT "000066 

STORAGE USED: CODE(l) OODIDli DATA (0 ) 00 0055: BLANK C0HH0N t2> O OO DDD _ 

EXTERNAL references” < BLOCK, NAME') ' 

'0Q03" NERR3S 

STORAGE ASSIGNMENT (BLOCK, TTPE, RELATIVE.. Lft.CA.IJ.0N.*- NAHE.l _ ... 

0001 .000012 I 1 Oft ooon I 000 03Q I 0000 00 00 41 INJPS 0 000 R OOOO O O XNOD E 0000 R 000 031 XNP 1 

'0000 R 000032 YNP1 OOOD R 000033 2NP1 


001 01 

1* 


SUBROUTINE SFCALL (XY2,SF,DF 1 

000012 

00101 

24 

C 

3-D LINEAR ISOPARAMETRIC ELEMENT 

000012 

00101' 

3* 

c 

THIS SUBROUTINE EVALUATES THE SHAPE FUNCTIONS.. AN0_TH EIR FJRST 

000012 

omoi 

q * 

c 

DERIVATIVES AT THE GAUSSIAN POINT XYZ 

000012 

00103 

5 * 


DIMENSION XNODE <8 r 3),XYZ!3) ,SF(B) ,DF(3,8) 

000012 

00104 

6* 


OATA XNODE /-I .0,241. 0,24-1.0,241.0,3 4-1.0 ,241.0,24-1 . 0, 

000012 

00104 

7* 


1 241.0,44-1.0,441.0/ 

000012 

utnoG 

84 


FCK(A,B,C)-0. 1254A4B4C 

000012 

00107 

9* 


00201-1,8 

000012 

00112 

104 


XNP1 rxYZ m'tXNODE (I , 1M1 .0 

000012 

00113 

114 


YNP1=XY7(2)4XN0DE(1,21+1.0 

0000 15 

001 14 

124 


ZNP1-XYZ (3)4XNO0E ( 1,3 1 + 1 .0 

000021 

0011 5 

1 34 


SF (I )=FCK (XNP1 ,YNP1 ,ZNP1 ) 

000025 

00116 

144 


DF (1 ,1 >=FCK t XNODE < I , 1 ) , YNP1 ,ZNP1 ) 

000031 

PHI 1 7 

154 


DF 12 , 1 ) =FCK (XNP1 , XNODE < I 1 2 > ,ZNP1 ( 

000036 

00120 

164 


2B DP(3,tl=FeKIXNPl,YNPl,XN0bE(i,3)) 

00004 3 

00122 

174 


RETURN 

000051 

00123 

18* 


END 

000100 


END OF COMPILATION! NO. .DIAGNOSTICS. 


SHDG.P 


SF CO 



~$FCQ ■ -- DA f£ qi 09“78 

« FOR Vs SFCjoVsFCO • ’ 

HS A E 3 -01/09/78 -2 3:44:24 C0 .> 


SUBROUTINE SFCALO* ENTRY POINT 000267 


STORAGE USED : CODE { 1 00031 1 ; DATA(O) 00 0233: BLANK C 0HHQN<21 000000 


EXTERNAL REFERENCES (BLOCK , NAME1 
0003’ " NERR34 


STORAGE ASSIGNMENT . .( BLOCK TYPE.t_RELA.TiyE. L0£ AT ION ,_.N AME ). . 


D001 000013 1 14G_ 

'0000 R 000150 ETA 
0000 I 000154 II 
0000 I 000134 NP 
OOOO R 000161 YNP 1 


_0001 0000 77 1 30G 

0000 I 000153 I 
0000 I 000143 J 
0000 R 000147 XI 
0000 R 000156 YP 


JJOOl 

0000 

0000 


000164 15L 


I 000152 IED 
I 000145 JJ _ 

oooo r booooo xnode' 

0000 R 000151 2ETA 


0 001 


000234 20L 


OOOO 

OOOO 


000144 II 
000146 KK 
OOOO R 000160 XNP1 
OOOO R 000162 2NP1 


OOOO 

'oooo 

oooo 

ocioo 

oooo 


_R 000142 CSJ 
“0 00170 IN JPs" 
I 000074 NM 
R 000155' XP 
R 000157 ZP 


00101 

1* 

00101— 

1 2* 

nmol 

3* 

OOJOl 

4* 

00103 

5* 

00104 

6* 

00104 

7* 

00106 

8 * 

00106 

9* 

00111 

10* 

00112 

'll* . 

00113 

17* 

01) i 1 6 

M* 

00117 

14 + 

00120 

' 15* 

00121 

16* 

00122 

17+ ~ 

00123 

18* 

00124 

19* 

00125 

20* 

00127 

21* 

00132 

22* 

00133 

23* 

00134 

24 + 

00135 , 

25 + 

00136 

26* 

00137 

27* 

OD 1 4 0 

28* 

00 14 1 

29 + 

00143 

30 + 


C 3- 

C 

C 


SUBROUTINE SF C ALQ { X YZ , SF ,DF) 

) QUADRATIC ISOPARAMETRIC ELEMENT 

EVALUATE SHAPE FUNCT IONS' AND FIRST DERIVATIVE'S A T THE 

GAUSSIAN POINT XYZ _ __ 

DIMENSION XNODE (20, 3 1 ,NM <8 , 4 ) ,NP (6 IV XY 2 f37Ts Ft 2 6 ) »D'F (' 
DATA XN00E/-1 . ,0. ,3 + 1 . ,0. ,3*-l . ,2*1. ,2*-l . *0. , 3*1 , ,0. 

DATA NM/2,6,ie*14, 4 *0,8, 20,16, 4, 4*0,9,10, 11,12,4*0, 

1 1, 3, 5, 7113,15, 17, 19/, NP/1, 2, 3, 1,2,3/ 

FCM( A,B,C )r0.25* ( 1 .-A*A 1+B + C _ _ ______ 

FCK< A,B,C,D)=0.125*A*B*C* (CST+01 ” 

DO 30 J = l,4 
t 1 + NM.J) 

JJ=NP(J*1> 

KK-NP< J + 2 ) ' -- - - 

XI-XYZ(II) 

ETA-XYZ(JJ)” 

ZETA=XYZ<KK 1 
IED = 4 

IF (J .EO. 4) 

DO 20 1=1, IED ~ 

I 1 =NM ( I , J ) 

XP=XNODE(Ili'in 
YP=XNODE ( II , JJ» 

ZP = X NODE ( 1 1 , KK ) 

XNPirXP+XI+l . 

Y NP 1 = YP + E T A + 1 • 

ZNPU2P + ZETA + 1 . 

IF t J .EC. 4 1 GO TO 15 
SF < I 1 1 -FCIM XI ,YNP1 , 2NP1 » 


3, 201 
,2*-l 
4*D’. , 


• , 

8 * 1 ./" 


IE0 = 8 


SFC0490 

SFCOSOO 

SFC0510 


'000013 
'000013 
GOOD 1 3 ’ 
000013 
"000013'" 
000013 
000013 
000013 
" 000013 
000013 
"000013' 
000013 
000025 
000032 
000037 
000044_ 
" 000053“” 
000055 
000057 
000066 
000072 
000077 
' 00 012 2 “ 
000124 
000126 
000130 
000133 
000136 
000141 
000 1 4 3 



-103 


SFCQ 


DATE "010976 


00149 

31* 

OF (I I, 11 )=-0.5*XI*YNPl*ZNPl 





000146 

JI014S 

. . 3(?* 

OF tJU»Ill.?FCMfXIjYPtZNPl> .. _ 

. 



. . . 

._ 000 152. 

00146 

33* 

DF(KK,Ii)=FCH<XI,ZP,VNPl> 





000156 

OP 1 4 7 

34* 

... GO TO 20 . . 






. „ 

000162 . 

0 □ 1 50 

35* 

15 CST-XNP1+YNP1+ZNP1— 5» 





000164 

001S1 

36* 

SF(I1)=FCK (XNP1 .YNP1 .ZNP1 ,0. ) 





0001-75 

00152 

37* 

DF< 1 ,11 >=FCK <XP, YNP1 ,ZNP1 ,XNP1 > 





000203 

00153 

38* . 

DF 1 2 , 1 1 ) = FCK t VP , 2NP 1 ,XNP; , YNP1 ) 

__ 





000213 

00154 

39* 

OF (3,11 l-FCK ( ZP , XNP 1 , YNP 1 , ZNP 1 > 





000223 

00155 

40* 

20 CONTINUE 




SFC0610 

000237 

00157 

4 1* 

30 CONTINUE 




SFC0790 

000237 

00161 

42* 

RETURN 





000237 

00162 

4 3* 

END 





000310 


ENP or COMPILATION: ..NO. . Q I AQNO & T I CS * 

SHOG .P ’ ' SFCU ' ~~ 


t> 



SFCU 


DATE 010978 


aF0R,S SFCU, SFCU 

E3. -01/09/78-23:4 4:26 (0 .1 


SUBROUTINE SFCALC ENTRY Po’lNT 000307 


STORAGE USED: C 0 D E.( U „ D 0 0 3 2 6 J. _ DAT A < 0 ) 00 03 01: BLA.N K C 0HH0N<2) 000000 

EXTERNAL REF E RE NCES* ~t BLOCK , Na'me'7 

” 0003 NERR3S 


STORAGE ASSIGN HE NX,. .(BLOCK, TyPE , ..RELATIVE LOCATION , . NAME ) 


,0001 000027 1 1 7G 

'OOOO R 000215 ETA 
0000 I 000210 J 
0000 R 000206 TEMP 
0000 R 000221 XP 
0000 R 000223 ZP 


0001 000106 130G 

0000 I 000217 I 
0000 I 000212 JJ 
0000 R 000227' TEMPT 
0000 R 000225 YNPI 


0001 00020 6 15L 0 001 000257 20L 

oooo i 060211 ii dodo 000237 injps 

0000 I 000213 KK OOOO I 000140 NH 

OOOO R 000214 “ xf * * “ OOOO V 000000 XNODE" 

OOOO R 000222 YP OOOO R 0Q0216 ZETA 


0000_R JJ00207 CST 
OOOO I 000220 II 
ODOO I 000200 NP 
OOOO R 000224 XNP1 
OOOO R 000226 ZNP1 


> 

i 

i— , 

o 


00101 

1* 

00,1 01 

2* 

00101 

3* 

001Q1 

4* 

00103 

5* 

00104 

6* 

00104 

7* 

DO 1 04 

8* 

00104 

9* 

00104 

10* 

U0104 

11* 

0010H 

1 2* 

00106 

13* 

00106 

14* 

00111 

15* 

00112 

16* 

00113 

17* 

00114 

18* 

D01 15 

19* 

00116 

'20* 

00121 

21* 

00 1 22 ~ 

22*' 

00123 

23* 

00124 

‘24* 

00125 

25* 

00126 

26* 

00127 

27* 

001 32 

28* 

00133 

29* 


SUBROUTINE SFCALC(XYZ ? SF,DF1 _ 

3-0 CUBIC ISOPARAMETRIC ELEMENT 

EVALUATE SHAPE FUNCTION S A N D FIRST DERIVATIVES AT THE _ 

' GAUSSIAN ' POINT XYZ 

DIMENSION XNODE (32,3>,NH(8,4),NP<6),XYZ<3),SF«32),DF{3,32> 

DATA XN0DE/-1 . ,-.333333333, .333333333,4*1 . ,.333333333 , 

1 -. 333333333, 4*-l. , 2*1., 2* -1., 2*1., 2*-l.,-. 33 333 3333, 

2' .333333333,4*1 ., .333333333 ,-.333333333, 3*-l. ~ 

3 _ _ 4*-l.,-. 333333333, .333333333, 4*1. ,.333333333, _ 

4 ■" -. 333333333, 2*-l . , 2*1. ,2*-l., 2*1 . , 4 + -1. 33 3 33 3333 , 

5 .333333333.4*1., .333333333, -.331333333, 

6 12*-1 . , 4*-. 3 3333333 3, 4*. 3 33333 333, 12*1./ 

DATA NM/2, 9, 29, 22, 3, 8, 28, 23, 12, 32, 25, 5, 11, 31, 26, 6, 13, 14, 15, 16, 

1 ' " 17,18, 19,20,1 ,4 ,7 , 10,21 ,24 ,27 ,3Q/,NP/1 , 2 » 3 , 1 j2 ,3/ 

FUNC1 t A , B ( - 0 . 1406?5*A*B 
"F U N C 2'< A', BTC”) = T E M P * ( C S T * A + 2 '.‘ * B * C ) ' 

FUNC4(A,B)-tl.-A*A)*19.*B~8.) 

FUNC51 A ,B> =TEMP* 19. *A* ( 1 .-3. *B*B) -B^B ) 
CST:XYZ(11**2*XYZ(2)**2*XYZ( 31**2-2.111 11111 
00 30 J - 1 » 4 
II=NP( J» 
j j-Np < j+ i r 
KK=NP( J+2) 

XI=XYZ(1I) 

ETArXYZtJJ) 

ZETA-XYZIKK 1 


SFC0080 

SFC009Q 


SFC0120 

SFC 


SF COl 90 
SFC0210 
■SFC0220' 


000011 
' 00001 1 
000011 
000.011 ' 
000011 
' 000011 
000011 
000011 
000011 
000011 ' 
000011 
000011 
000011 
booon 
000011 
' ooooir 
000011 
000011 
000011 
000027 
000035 
000042 
000047 
000054 
000056 
000060 ' 


DO 20 1-1,8 
Il=NM(l,J) 

X P-X NODE ( I 1 , 1 I ) 


SFC0440 000073 

000106 
000107 



srcu 


DATE 0 l 0978 


00134 

30* 


YP=XNOQE 111 ,JJ1 


000113 

00135 

31* 


ZP=XN0DE(T1,KK) 


0001 J7 

001 36. 

32* 


XNP1=XP*XT+1. 

SFC0490 

000123 

00137 

33* 


YNP1=YP*ETA+1. 

SFC0500 

ODD 1 26 

00140 

34* 


ZNP1=ZP*ZETA+1. 

SFC0510 

000131 

00141 

35* 


IF ( J ,EQ. 4 1 GO TO 15 


000134 

00143 

36 + 


TEMP=FUNC1 (ZNPI , YNP1 }, 

SFCD7Q0 

000 1^36 

0 014 4 

37* 


TEHP1=FUNC4<XI,XNP1 I 

SFC0710 

000141 

00145 

38 * 


SF (I 1)-TEMP*TEMP1 

SFC0720 

000145 

00146 

39* 


OFlII ,1 1 1 -FUN C5 (XP,XI 1 


000151 

00147 

40* 


DF (JJ,I 1 1=TEMP1*FUNC1 < YP.ZNPl) 


000172 

0 015 0 

4 1* 


OF ( K K , I 1 1-TEMP1 + FUNC1 1 2P , Y N P 1 ) 


ODD I 77 

00151 

42* 


GO TO 20 


000204 

00152 

4 3* 

15 

TEMP=FUNC1 < YNP1 ,ZNP1 1 

SFC033Q 

000206 

00153 

44* 


SFII1 >=TEMP*XNP1*CST 

SFC0340 

000216 

00154 

45* 


DF(1,I11=FUNC2(XP,XI,XNP1) 

SFCD35Q 

000221 

00155 

46 + 


TEKP = FUNC1 12NP1 ,XNP1 ! 

Sf C0370 

000230 

0015b 

47* 


Dr'(2.Il )=FUNC2< YP,ETA,YNP1 1 

SFC0380 

000234 

00157 

48* 


TEMP-FUNC1 tXNPl ,YNP1 I 

SF CO 4 00 

000243 

00160 

49* 


DF( 3,11 l-FUNC 21 ZP,ZETA , ZNPI 1 

SFC0410 

000247 

00 161 

50* 

20 

CONTINUE 

SF C0610 

000262 

00163 

51 + 

30 

CONTINUE 

SFC079Q 

000262 

00165 

52 + 


RETURN 


000262 

00166 

53* 

, 

END 

. ... . „ _ . . 

000325 .. 


END OF COMPILATION: NO DIAGNOSTICS'. 


anoo,P 


SLJ0 


106 


SLID 


0A.TE 010978 


SFOR.S SLIOfSLXD 
H S A E 5 , - 0 1 / 0 9 / 78 -2_3.: 4 4 :2 8 18 ,1 


SUBROUTINE 5LTEST ENTRY POIN T0030 16 


t» 

l 


storage 

used: code ( i > 

COMMON 

BLOCKS : 


0003 

CELZ1 

000015 

0004 ' 

CEL23 

001140" 

ooos 

MATRL 

000005 

0006 

NCASE 

000003 

0007 

BE OH 1 

000524 

0010 

LAGRGN 

000005 

00 11 

NOOEPJ 

000003 

‘0012 

SRFACE 

000077 

0013 

SURFCE 

onooio 

0014 

STRESS 

002530 

0015 

OISPLC 

001620 

0016 

IMPCT1 

006650 

0017 

IMPCT2 

000230 

0020 

SOLCNV 

000574 

0021 

SOLSTR 

001254 

0022 

SOLDI S 

000344 

00 2 3 

BOVER 

001375 

0024 

BDSTR 

002541 

, 0025 

BODIS 

000713 

0026 

MATRL2 

000230 


EXTERNAL REFERENCES (BLOCK, NAME) 


0027 NPRT 5 

0030 " * N 1 0 2 5 

0031 SORT 

0032 NST0P4 

0033 NERR3S 


ITORAGE 

ASSIGNMENT 

(BLOCK, TYPE 

, RELATIVE LOCATION, 

NAME! 






* 


0001 

001643 

1014G 

0001 

001655 

1 021G 

0001 

000331 

104L 

0 001 

001711 

10M2G 

0001 

OQ 1 734 

L055G 

0001 

001752 

1062G 

0001 

001762 

1070G 

0001 

000357 

11QL 

0000 

000413 

HOOF 

0001 

000452 

1 1 1 L 

0001 

002014 

1 1 1 1G 

0001 

002034 

1U7G 

0001 

000461 

112L 

0 001 

002047 

1127G 

0001 

000467 

113L 

0001 

002071 

1 141G 

0001 

002104 

11476 

0001 

000703 

115L •' 

0 001 

002117 

1155G 

0001 

002136 

11676 

0001 

002157 

1 1 75 G 

0001 

000705 

1 1 8 L 

00 0 Q 

000422' 

“l2b J 0F , 

0 00 0 

000431 

12Q1F 

'0000 

’ 000441 

1202F 

0001 

002211 

1211G 

0001 

002214 

1214G 

0001 

002232 

1222G 

0 001 

002260 

1237G 

0001 

002263 

1242G 

G001 

002303 

1 254G 

0001 

002322 

1 2666 

0001 

DQ1141 

1 30L 

0 001 

002341 

1 300G 

0001 

001 143 

1 31L 

0001 

001165 

1 32L 

0001 

002452 

1 337G 

0001 

001202 

1 35 L 

0 00 1 

002553 

1406G 

0001 

002570 

1420G 

COD] 

002601 

1 4 3 1 G 

0001 

001337 

1 4 4 L 

0001 

002620 

1 440G 

0 001 

001346 

145L 

0DQ1 

002651 

14 546 

0001 

002657 

1457G 

0001 

002 706 

1 4 7 ? G 

unoi 

001374 

1 4 8 L 

0 001 

001376 

1 SOL 

0001 

002734 

1 5 1 0 G 

0001 

'002745 

151 7G 

00 01 

001434 

1 5 2 L 

00 01 

001463 

1 SSL 

0 00 1 

□01530 

1 5bL 

00 01 

OIJl j 36 

l 60L 

0001 

001643 

162L 

0001 

01) CO 5 5 

1636 

GIUU 

OC 1 626 

1651 

o ro l 

Ou 1 6 ’ 0 

1 6SL 

00 01 

000056 

1 70G 



107 


DATE Q1D978 


SLID 


D001 


00 1 70 1 

1 71L 

0001 


001725 

173L 

ooai 


001777 

1 74 L 

0 001 


002002 

175L 

0001 


002043 

182L 

0001 


0 02 OR 5 , 

185L 

0001 


002064. 

200L 

0001 . 


000232 . 

2<UJ3 

...0 00.1. 


.0Q0233.. 

244 G 

0001. 


000333 

2776 

C001 


'002256 

300L 

0001 


000347 

3 07G 

0001 


002400 

3 10L 

0 00 1 


002424 

31 4 L 

0001 


002450 

317L 

0001 


002474 

319L 

0001 


002503 

320L 

0001 


002516 

321 L 

__Q 00 1 . 


002525 

322L 

Doai 


000367 

323G 

0001 


■ 002527 

323L 

0001 


002543 

325L 

0001 


D 0256 1 

326L 

0 001 


002563 

327L 

ODOl 


002573 

330L 

0001 


000442 

3 34 G 

0001 


002724 

380L 

0001 


002757_ 

397L 

0 001 

000174 

40L 

0001 


002761 

4 10L 

0001 


000725 

427G 

0001 


000753 

4 3 7 G 

0001 


001033 

4606 

0 001 


001045 

4656 

0001 


00017 6, 

50L 

0001 


002764 

5 OOL 

0001 


001102 

507G 

0001 


001147 

534 G 

0 001 


001152 

5406 

ODOl 


001156 

5446 

0001 


001207 

565G 

0001 


001230 

575G 

0001 


001243 

603G 

0 00 1 


001265 

6116 

0001 


001436 

6 7 7 G 

0001 


001452 

7 05 G 

0001 


001467 

717G 

0001 


001476 

722G 

0 001 


001512 

732G 

0001 


001515 

735G 

0001 


001553 

756G 

0001 


001565 

76 36 

0001 


001604 

774G 

0 00 3 


00DQ01 

A 

oooo 

R 

000272 

ABN 

0000 

R 

000273 

ART 

0003 


000002 

ALPHA 

oooo 

R 

000267 

APB 1 

0 000 

R 

000270 

APB2 

oooo 

R 

000271 

APB 3 

0015 


001254 

BFS 

0016 


001370 

C 

oooo 

R 

000274 

CN1 

'0 000 

R 

000275 

CN2 

oooo 

R 

000276 

CN3 

0000 

R 

000277 

CT1 

OOOO 

R 

000300 

C T 2 

oooo 

R 

000301 

CT3 

0 00 3 

R 

000013 

OELT 

oooo 

R 

000406 

DF1 

0000 

R 

000410 

DF2 

OOOO 

R 

000412 

DF3 

oooo 

R 

000243 

DIFF 

0 013 

R 

000001 

DIFEPR 

oooo 

R 

000230 

0 1 M 1 

0000 

R 

000231 

0 I M 2 

oooo 

R 

000232 

0 1 M3 

0022 


OOOOOO 

DIS 

0 02 5 

R 

000347 

DISBD 

0015 


OOOOOO 

DISN 

0015 


000344 

DISPRV 

oooo 

R 

000236 

GRIN 

oooo 

R 

000233 

DXMIN1 

0 00 0 

R 

000234 

DXMIN2 

oooo 

R 

000235 

DXHIN3 

0000 

R 

000344 

DX 1 

oooo 

R 

000345 

0X2 

oooo 

R 

000343 

0X3 

_ 0 01 6 


001140 

FJN 

0016 


001254 

F JPR V 

0000 

R 

000325 

F NHL 

oooo 

R 

000326 

FTGN 

OOOD 

R 

000320 

FI 

o noo 

R 

000321 

F2 

oooo 

I 

000213 

I 

0025 

I 

00000 3 

IROIS 

0025 

I 

oonooo 

IBDIST 

0024 

I 

000011 

I BDS 

0 02 4 

T 

OODOOO 

1B0ST 

0023 

I 

000005 

IBDV 

CQ23 

I 

000000 

IBOVT 

ODOD 

I 

000244 

IOEX 

oooo 

I 

000362 

IE 

oooo 

I 

000361 

II 

oooo 

I 

000334 

IN 

00 0 6 

I 

000000 

INDEX 

OOOO 

I 

0D0360 

I NOG 

oooo 

I 

000363 

INEL 

0 00 0 


000475 

INJPS 

0003 


00001 1 

INNER 

0000 

I 

000000 

INT 

OOOO 

I 

000337 

INTEL 

oooo 

I 

00004 1- 

INTELM. 

0012 

I 

000065 

INTF 

0C11 

I 

000002 

INTFT 

f 000 

I 

000340 

INTND 

oooo 

I 

000351 

INTI 

_0000 

I 

000355 

INT 2 

o noo 

I 

000350 

INI 

oooo 

r 

000354 

IN2 

uccio 

I 

000377 

10MIT 

0003 

I 

ooooao 

I OR DC 

0010 


000002 

IORDL 

o non 

I 

000331 

I PLANE 

0005 


000004 

1S0P 

000 5 


000003 

ISOT 

0003 

I 

000012 

I TER 

oooo 

I 

000214 

11 

onoo 

I 

000215 

12 

oooo 

i 

000216 

13 

0000 

1 

000217 

14 

OOOO 

I 

0D0220 

15 

oooo 

I 

000221 

16 

onoo 

I 

000241 

J 

oooo 

I 

000252 

JA 

0000 

I 

000253 

JB 

OOOO 

I 

000246 

J 3 

oooo 

I 

000247 

J6 

ooon 

I 

00034 1 

K 

0007 

i 

OOOOOO 

KODE 

0000 

I 

000364 

KPE 

oooo 

I 

000374 

LIAO 

oooo 

I 

000373 

LIN 

oooo 

I 

000376 

LK 

oooo 

i 

000365 

M 

0000 

1 

000366 

HJ 

oooo 

I 

000402 

HJ1 

□non 

I 

000403 

MJ2 

o noo 

T 

000404 

H J 3 

oooo 

i 

000371 

MK 

0000 

I 

000375 

MN 

oooo 

I 

000102 

MOVEl 

oooo 

I 

000116 

M0VE2 

o ooo 

I 

ODD 132 

MOVE 3 

oooo 

i 

000146 

MO V E 4 

0000 

I 

000162 

MOVES 

oooo 

I 

000176 

M0VF6 

oooo 

I 

000212 

N 

0 00 6 


000001 

NASTRN 

0003 


000006 

NBW 

0010 


000003 

NRWT 

oooa 

1 

000313 

NCRIT 

oooo 

I 

000401 

NO 

o oo n 

I 

00Q0Q1 

NPEG 

oooo 

i 

000370 

NOIFEL 

coin 


000001 

NELT 

0003 

I 

000010 

NEPJ 

0011 

I 

OOOOOO 

NEPJT 

0 00 3 

I 

000003 

NET 

oooo 

i 

000356 

NF 

oooo 

I 

000357 

NFDG 

oooo 

I 

000367 

NFEL 

0005 

I 

OOOOOO 

NFRAC 

0012 

I 

OOOOOO 

NFS 

0003 

i 

000014 

NFST 

0000 

I 

000347 

NFS1 

oooo 

I 

000353 

NFS2 

oooo 

I 

0 DO 34 6 

NF1 

o noo 

I 

000352 

NF2 

0003 


000005 

NHBW 

0010 


000004 

NHBWT 

0000 

I 

000250 

NI 

oooo 

I 

000372 

NJ 

ooon 

I 

000254 

N J A 

oooo 

r 

000255 

NJB 

0000 

I 

000251 

N JO 

oooo 

I 

000222 

NJ1 

oooo 

I 

000223 

NJ2 

o non 

I 

O002?« 

NJ3 

oooo 

r 

000225 

NJ4 

libull 

} 

ddti2?6 

Nt)*s 

mau 

t 

000^7 

' 

6000 

I 

eehid? 

NK 

o no 7 

I 

0001 I 4 

NOO 

0026 

i 

000114 

NODFRC 

0001 

I 

000007 

NPPJ 

001 1 

I 

00000 1 

NPP JT 

0003 

I 

000004 

NPS 

0010 


oooooo 

NPST 

0006 

i 

000002 

NSLIDE 

oooo 

I 

000400 

NT 

oooo 

I 

000405 

NTX 

OOOO 

I 

000407 

NT Y 

oooo 

I 

000411 

NTZ 

00D0 

i 

000245 

NVS' 

oooo 

I 

000332 

NXMIN1 

oooo 

I 

000333 

NXMIN2 

OOOO 

I 

000316 

Nl 

oooo 

I 

000317 

N2 

OODO 

i 

000322 

N 3 

0005 


000002 

PM I U 

0017 


000000 

PRSN 

0017 


000114 

PRSPRV 

a ooo 

R 

000327 

RT 

OOOO 

R 

000312 

RV 

0024 

R 

001265 

SR D 

0013 

R 

oooooo 

SMIU 

0021 

R 

OOOOOO 

STS 

0 014 


OOOOOO 

STSN 

0014 


001254 

STSPRV 

oooo 

R 

000330 

SUM 

0005 


000001 

TMIU 

0023 

R 

000601 

VBD 

oooo 

R 

000314 

VD1FFX 

OOOO 

R 

0003 1 5 

V0IFF2 

0020 

R 

nooooo 

VFR 

0016 


000344 

VERN 

00D4 

R 

000344 

VERPRV 

0 ooo 

R 

000237 

V M A X 

0013 

R 

000003 

V MAX PR 

oooo 

R 

000240 

VMIN 

0013 

R 

000004 

VMINPR 

oooo 

R 

000311 

VN 

oogo 

R 

000242 

VNOO 

aooo 

R 

0003D5 

V N 1 

oooo 

R 

000306 

V N 2 

oooo 

R 

000307 

V N 3 

0013 

R 

000002 

VO 

0 000 

R 

000310 

VT 

oooo 

R 

000302 

V T 1 

oooo 

R 

000303 

V T 2 

oooo 

R 

0GC304 

V T 3 

oooo 

R 

000323 

VI 

onoo 

R 

000324 

V2 

0015 

R 

000710 

X 

oooo 

R 

000256 

XA 1 

oooo 

R 

000257 

X A 2 

oooo 

R 

000260 

X A 3 

0 CO 0 

R 

000261 

XB1 

ooon 

R 

000262 

XB 2 

oooo 

R 

000263 

X B 3 

oooo 

R 

000264 

X C 1 

oooo 

R 

DU0265 

XC2 

onoo 

R 

000266 

XC3 

0013 

R 

000005 

XOIH 

0016 

R 

oaoaoo 

XN 

0004 

R 

OOOOOO 

XPR V 

oooo 

R 

000335 

XSLIP1 

o noo 

R 

000336 

XSLIP2 

0026 


OOOOOO 

YIELD 
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SUBROUTINE SLTEST 


C***+* *************** 

,C , 

C TEST OF VHETHER~’THE PROJECTILE REBOUNDS, SLIDES OF PENETRATES 


NSLIDE = D 
= . 1 


NORMAL IMPACT 
OBLIQUE IMPACT 


C******************** 

C 1 ' ' 

INCLUDE P AR AM 1 .LIST 

P A R AMI PROC 
C . 

PARAMETER NPMT- 76,NEHT= 33, NPM:: 76",NEH = 33 
PARAMETER NPELG: 8,NPE= 8 

PARAMETER NDFRS = 53 ,NDINT = 1Q 


PARAMETER NRM AX=2Q00 ,NCMAX=2 
PARAMETER NGPLG=2 , NGP =2 
PARAMETER NCNT=6, NFRC-NPM 
PARAMETER IU=S,NOPJT= 1 D , N TS TEP = 200 
PARAMETER NBV=NPH,NBS-NPM,N3D-NPM 

END 

'INCLUDE TESTNG.LIST 
TESTNG PROC 

PARAMETER NDIM-NEm 

DIMENSION N0EG(32>,INTELM(ND1M) 


COMMON /CELZ 1 / IORDC, A, ALPHA, NET, NPS,NHBW,NBU,NPPJ,NEPJ, INNER, 

1 ~ITER,DELT,NFST "" 

COMMON /CELZ3/ XPR V ( NPMT , 3 ) , VERPRV ( NPMT , IU ) 

COMMON /MATRL/ NF R A C , T M I U , PM I U , I SO T , I SOP 

COMMON /NCASE/ INDEX.NASTRN, NSLIDE _ 

COMMON /GE OH 1 / KOOE(NPMT) ,NOD(NEHT ,NPELG) 

COMMON /LAGRGN/ NPST,NELT,IORDL,NBUT»NHBWT 

COMMON /NODEPJ/ NEP JT , NPP JT , IN TF T 

COMM ON /SR FACE/ NFS(NDFRS|,INTF(NDINTI 

COMMON /SUKfet/ SMIU,ttIFFPli,UO , VM A X P R , VM1 NP R , XD I M (3) * 

COMMON /STRFSS/ S T SN ( NPM , 3 , 3 1 , S TS PR V ( NPM , 3 , 3 ) 

COMMON /DISPLC/ DISN(NPMT,3) , D I SP R V ( NPMT , 3 ) , X t NPMT, 3) .BFSTNPHT, 
COMMON / I MPCT 1 / XNtNPMT ,3 ) .VERNtNPHT , I U ) ,FJN(NPM| ,FJPRV (NPM) , 

"l ‘ CtNPMT.NCNT , NCN T > ~ 

COMMON /IMPCT2/ PRSN (NPM ) ,PRSPRV (NPM I _ ' 

COMMON /SOLCNV/ VF.R < NPMT , IU ) ‘ ~ 

COMMON /SOLSTR/ STS(NPM,3,3) 

COMMON /SOLDIS/ DIS(NPMT,3) " ' 

COMMON /BOVER/ IBDVT ( IU) , IBDV (NBV , IU ) ,VBD (NBV ,Itl'l 
-COMMON /BDSTR/ I B D S T ( 3 , 3 ) IB DS (NBS ', 3 , 3 > , S8D ( fjB'S , 3i ,3') , 

COMMON /BDDIS/ TBDIST (3) ,IBDIS (NBD,3 I ,DISBD(NBO ,3 ) 

COMMON /MATRL?/ Y I £ L D ( NPM T ) , NO DFR C { N FRC ) “ ' 


DIMENSION M0VE1 ( 4 , 3 l , MO VE 2 < R , 3 I , MOV E 3 t R , 3 > , MO VE4 ( R , 3 ) .MOVE 5 (R,: 
1 M0VEG(R,3l 

’'DATA MOVE 1 / 1 ,*i ,5,B, 1 , 7,1 3,19,1 , ID ,21 ,30/ 

DATA MOVE?/! ,2, ‘.,6, 1 , 3,13 , IS , 1 ,4, ?! ,2R/. 
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00150 

18* 



DATA HOVE 3/ 1,2, 3 ,9, 1,3, 5., 7,1 ,4,7,10/ 

000026 

00152 

19*- 



DATA HOVE 4/2, 3, 6. 7. 3,5. 15, 17,4. 7. 24, 27/ 

000026 

00159 

20# 



DATA HOVE 5/9 ,3, 8 ,7,7,5,19, 17,10,7,30,27/ 

000026 

00156 

21* 



DATA MO VE6/5.6. 7.8, 13.1 5. 17. 19. 21 .29.27,30/ 

000026 

00156 

22* 

C 



00D026 

00156 

23* 

c 



000026 

00160 

29* 



IF (ITER .GT. 1 ) GO TO 50 

000026 

00162 

25* 



DO 90 N=1,NET 

000035 

00165 

26* 



IF ( N .GE. NEPJ .AND. N .LE. NEPJTJ GO TO 90 

D0003S 

00167 

27* 



DO 35 1-1,9 

000056 

00172 

28* 



I1=M0VE1(I, IORDC) 

000056 

00173 

29* 



I2=MOVE2ll,IORDC) 

000061 

00179 

30* 



I33H0VE 3 11, IORDC) 

000065 

00175 

31* 



I9=M0VE4 ! I . IOROC ) , 

000071 

00176 

32* 



I5=M0VE5tI , IORDC) 

000075 

DOl 77 

33* 



I6 = M0VE6 I I , IORDC > 

000101 

00200 

39* 



N J1 = N0D IN, 1 1 ) 

000105 

00201 

35* 



NJ2=N0D (N, 12 ) 

0001 10 

00202 

36* 



N U 3-NOD ( N , I 3 ) 

000il3 

00203 

37* 



NJ4=N00 ( N . 14 | 

000117 

0O2Q9 

38* 



NJS=N0D(N,I5! 

000123 

00205 

39* 



NJ6=N0D<N , 16 ) 

000127 

00206 

90* 



DIH1-ABS1XPRV (NJ1 ,1 l-XPRV <NJ4,i") ) 

000133 . 

00207 

9 1 * 



DIM2 = AEtS[XPRV(NJ2,2)-XPRV(NJ5,2)) 

UO0137 

00210 

92* 

• 


DIM3-A0S(XPRV(NJ3,3)-XPRV (NJ6,3I ) 

000143 

0021 1 

93* 



IF ( 0 I H 1 .LE. XOIH(ll) X0IM(1)=0IH1 

000147 

00213 

9 9* 



IF (DIM2 .LE.. XD IN < 2 ) ) X0IM(2)=DIM2 

000155 

00215 

95* 



IF t 0 1 H 3 .LE. XDIM ( 3 ) ) X0IM(3)=DIM3 

000163 

00217 

96* 


35 

CONTINUE 

000176 

00221 

97* 


90 

CONTINUE 

000176 

C 0 ? 2 3 

98* 


5 D 

CONTINUE 

000176 

00229 

00225 

99* 

50* 



oxhini-xoth m/io, 

DXHIN2=XOIM(2)/10. 

000176 

000200 

00226 

00227 

51* 

52* 



0XHIN3=XDIH ( 3 )/10. 

DMINADXMINl 

000203 

000206 

00230 

53* 



IF (DMIN .GE. 0XHIN2) DHIN~0XHIM2 

000207 

00232 

59* 



IF (DHIN .GE. DXHIN3) DMIN=DXHIN3 

000215 

00239 

00239 

55* 

56* 

c 


IF (NFRAC .NE. 0) GO TO 110 

000223 

000223 

00239 

57* 

c 

TEST THE REBOUND CASE 

000223 

00239 

58* 

c 



000223 

002 36 

59* 



VHAX-0.0 

000225 

00237 

60* 



VM IN -0 . 0 

000226 

00290 

61* 



00 100 1 = 1 , NPS 

000233 

00293 

62* 



00 100 J=1 ,3 

000233 

00296 

63* 



VNOD=ABS(VER<I,J»> 

000233 

00297 

64# 



IF (VNOD .GE. V HAX )- VHAX=VNOD 

000234 

00251 

65* 



IF (VNOD .LE. VHIN) VMIN=VNOD 

000242 

00253 

6 6# 


100 

CONTINUE 

000259 

00256 

67* 



IF (VMAX .GE. VHAXPR .OR. VHIN .LE. VMINPR) GO To' 104 

000254 

00 26 0 

68# 



DIFF=VHAX-VMIN 

000272 

00261 

69* 



IF (OIFF .GE. DIFFPR) GO TO 104 

000275 

00263 

70* 



DIFFPRrOIFF 

000300 

00269 

71# 



VMAXPRAVHAX 

000 T02 

00265 

7 2* 



VHINPRZVM]N 

000304 

00266 

73* 



IF (OIFF . 0 T . O.USi GO TO 109 

DUO 306 



on- 
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00270 

00272 

74* 

75* 

' 


IF 10IFF .LE . 0.05) I0EX=2 
IF {DIFF .LE. 0.01) IDEX=3 


□0031 1 
000317 

00274 

76* 



RETURN 



000325 

00275 

77* 


104 

CONTINUE 



000333 

00276 

78* 

• 


DO 105 J=1,INTFT 



000333 

00301 

79* 



I=INTF (J) 



000333 

00302 

80* 



IF(VER(I,3» .LT. 0.0) 

GO TO 110 


• 000336 

00304 

81* 


105 

CONTINUE 



000347 

00306 

82* 



DO 107 I=NPPJ,NPPJT 



000347 

00311 

83* 


107 

K0DE(I>=4 



000347 

00313 

84* 



PRINT 1100 



OOQ351 

00315 

85* 



GO TO 200 



000355 

00316 

86* 


110 

CONTINUE 



000357 

00316 

67* 

C 





000357 

00316 

88* 

C 

TEST THE SLIDING CASE 



000357 

00316 

89* 

c 





000357 

00317 

90* 



IF (NSLIOE .EQ. 01 GO 

TO 300 


000357 

00321 

91* 



NVS = 0 



000362 

00322 

92* 



00 118 N=1,NET 



000367' 

00325 

93* 



IF ( N ,G£. NEPJ .AND. 

N .LE. NEPJT ) GO TO 118 


000367 

00327 

94* 



J3-HOVE3 ( 1 tIORDC ) 



000405 

00330 

95* 



J6=M0VE6 < 1 , IOROC ) 



000415 

0 0331 

96* 



NJ3=N0D(N ,J3) 



000425 

00332 

97* 



N J6 r N0D ( N i J6 ) 



000430 

00 J33 

98* 



DO 115 I - 1 »INTFT 



000442 

00336 

99* 



NI=INTE(I ) 



000442 

00337 

100* 



I T 1 N I .EQ. NJ3) GO TO 

ill 


00,04 4 3 

00343 

101* 



I F ( N I .EQ. NJ6) GO TO 

112 


000445 

00 3<i 3 

102* 



GO TO 115 



000450 

00344 

103* 


111 

N J0=NJ3 



000452 

00345 

104* 



JA-J3+I0RDC 



000453 

00346 

106* 



Jfi = J3 + 3*I0R0C 



000455 

00347 

106* 



GO TO 113 



000457 

00350 

107* 


112 

N J0=NJ6 



000461 

00351 

108* 



JA- J6+I0RDC 



000462 

00352 

109* 



JB-J6* 3*I0RDC 



Q0Q464 

00353 

110* 


113 

NJA=N00(N,JA) 



000467 

00354 

111* 



NJB=NOO(N, JB) 



000473 

00355 

112* 



XA1SX(N.JA, 1 l-XCNJO.l )' 



000500' ' 

00356 

1 13* 



XA2 = X t N J A t 2 ) -X (NJOi 2) 



000505 

00357 

114* 



XA3=X(NJA,3)-X(NjO,3) 



000510 

00360 

115* 



XB1=X(NJB,1>-X<NJ0,1) 



000513 

00361 

116* 



X92=X(NJB,2)-X<NJ0,2I 



000517 

00362 

117* 



X93=X(NJB,3>-X<NJO,3> 



000522 

00363 

118* 



XC1=XA2*XE3-XA3*XB2 



00Q525 

00364 

119* 



XC2-XA3*XB 1-XA1*XB3 



000531 

00365 

120* 



XC3=XA1*XB2-XA2*XB1 



000535 

00366 

121* 



APB1=XA!+XB1 



000542 


00367 

122* 

APB2=XA2*XB2 

1 





000545 

00370 

123* 

APB3-XA3+XB3 






000550 

00371 

124* 

A8N-SQRT (XC1**2+XC2**2 + XC3**2 ) 



• 



000552 

00372 

125* 

ABT-S0RT(APB1**2+APB2**2*APB3**2) 






000564 

00373 

126* 

CN1-XC1/ABN 






000577 

00374 

127* 

CN2=XC2/ABN 






000602 

GO 3 7b 

1 28* 

CN3=XC S/ABN 




■ 


000605 

00 376 

129* 

CT1=APU1 /AIU* 






000610 
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00377 

130* 


CT2=APB2/A8T 

000613 

C040p 

131* 


CT3=APB3/ABT 

Q0Q616 

004 0 1 

132* 


VT1-VER(NJ0*1 1/CTl, 

000621 

00402 

133* 


VT2 = VER<MJ0.2»/.CT2 

. 000624 

00403 

134* 


VT3=VER(NJ0,3)/CT3 

000627 

00404 

1 35* 


VN1=VER IMJO.l J/CNl 

000632 

0040S 

136* 


VN2=VER (NJO ,2 1/CN2 

000635 

00406 

137* 


VN3-VER1NJ0.31/CN3 

000640 

00407 

138* 


VT = SQRT <VT 1**2 + VT 2**2 + VT3**2) 

0.006 4 3 

004 10 

139* 


VN=SQRT(VNl*+2+VN2**2+VN3**2) 

Q00655 

00411 

140* 


RV-VT/VN-0.01 

000667 

004 12 

14 1* 


I F ( i? V .01. SHIU) NVS -N VS + 1 

000673 

□ 04 1 4 

142* 

115 

CONTINUE 

000706 

C04 1 6 

14 3* 

, _ 1 18 

CONTINUE 

000706 

0042D 

14 4* 


NCRIT-3*INTFT/4 

000706 

0042 1 

1 4 5 + 


IF (NVS . LE . NCR IT) GO TO 300 

000712 

00423 

146* 


VDIFFirO.O 

Q00715 

00424 

14 7* 


VDIFF2=0.0 

000716 

oom2s 

148* 


N1=INTF<1) 

000717 

00426 

149* 


DO 120 I-2iINTFT 

000721 

0U4 31 

150* 


N2-I NTF ( I ) 

000725 

00432 

151* 


F 1=VER ( N1 , 1 1 +VER ( N2 , 1 ) 

QD0730 

00433 

3 5 2* 


F2=VER l N1 ,2 )*VER (N2,2 1 

000733 

004 34 

153* 


I F ( F 1 .LT. 0.0 .AND. F2 .LT. 0.01 GO TO 300 

000736 

004 36 

154* 


00 120 JC1,INTFT 

000753 

004 4 1 

155* 


N 3 - 1 N T F ( J) 

000753 

00442 

156* 


V1=ABS( VER (N2,l 1-UER <N3, 1 1 1/VO 

000756 

00443 -- 

157* 


V2=ABS<VER<N2.2)-VER<N3,2>)/V0 

000763 

0044 4 

158* 


I F ( V 1 .GC. VO IFF 1 ) VDIFFlrVl 

000770 

004 4 6 

15 9* 


I F ( V 2 .GE. VO IF F 2 1 VDIFF2=V2 

000776- 

00450 

160* 


IF (V0IFF1 .GE. 0.01 .AND. VDIFF2 .GE. 0.01) GO TO 300 

001004 

0 0452 

161* 

120 

CONTINUE 

00 10,26 

00455 

162 + 


F NHL -0.0 

001026 

00456 

163* 


FTGN=0.0 

001027 

00457 

1 64 * 


00 125 1=1 , INTFT 

001033 

00462 

168* 


NX=INTF (I 1 

001033 

00463 

166* 


F N ML = F N M L ♦ $ T S ( N I , 3 , 3 ) 

001036 

00 4 mi 

1 6 7 * 


DO 122 0=1*? .. . _ 

001045 

00467 

168* 

122 

E f 6 M - F IGN+5TS (NI , J, 3 1 

001045 

00471 

169 + 

125 

CONTINUE 

001052 

00473 

170* 


FNML=ABS(FNML 1 

001052 

004 74 

171 * 


FTGN=ABS(FTGNI 

001054 

00475 

172* 


rt=ftgn/fnml 

001056 

00476 

2 73* 


SUM=SMIU+O.OI 

001060 

00477 

174* 


IF (RT .LE . SUM) GO TO 300 

001063 

00501 

175 + 


PRINT 1200 

001066 

00503 

176* 


IPLANE=4*I0RDC 

001072 

00504 

177* 


N X M I N 1 -0 

001075 

00505 

178* 


NXMIN2=0 

001076 

00506 

179* 


00 126 1 = 1 7 INTFT 

DO 1 1 02 

0061 1 

180* 


I N - 1 NT F ( I 1 

001 102 

00512 

181* 


X5LIP1 = VER «IN , 1 1 *0EL T 

001104 

00513 

182* 


X8LIP?-VERUN,21*DELT 

001 107 

00514 

183* 


IF < X SL I P 1 .GF. 0XMIN1) DXMIN1 =XSL JP 1 

00 1 112 

00516 

184 + 


IF (XSIIP2 .GE. 0XMIN2) 0 XM I N2 =X SL IP 2 

001 120 

00620 

185* 

126 

COMINIJF 

Ofll 1 30 



SLID 


OATE 010978 


IF INSLIDE) 127,130,131 

127 PRINT 1201 

GO TO 20D 

.. ..1.30. NSLIPE- 1 

131 CONTINUE 

_c ; 

C UPDATE MESH ON SLIDING BAND 

C - 

INTEL=0 

DO 135 N:l,_NET 

I NT NO-Q 

DO 134 I -1 ,NPE 

NI=NOO (N, l I 

DO 132 K = 1 , INTFT 

NK - IN TF ( K ) ■' 

IF INI .NE. NKLSOJO 132_ 

INTND-INTND+ 1 

132 CONTINUE 

134 CONTINUE ’ 

IF (1NTND .NE. IPLANEJ_GO TO 135 

INTEL=INTEL+1 

INTELM(INTEL)=N 

135 CONTINUE “ 

_ DO 137 J- 1 , J NT£T 

" I=INTF(J> 

K00E(I>=-2 _ _ 

X 1 1 , 1 1 :X 1 1 , 1 .) + VE R 1 1 , 1 ( *DELT 
13 7 X(I,2)=X(I,21+VER(I,2)*D£LT . 

DO 138 I-NPPJ ,NPPJT '' 

X ( I , 1 ) -X (I , 1 ) +VER ( I , 1 ) *DELT _____ 

1 3 8 ' X ( 1 , 2 ) = X { I , 2 i ♦ VE R VI', 2") *DEL T 
DO 150 I=1,NFST 

NI=NFS( I ) ' . 

IF ( N I . GE . NPPJ .AND. NI .L£. NPPJT1 

DO 148 J = l, INTFT 

_ INT=INTF(J) 

“'"IF (NI . E 0 . I N T ) GO'TO T48" 

D X 3 = AtSS(X(NI,3)-XlINT,3)> 

IF ( DX 3 .SE. DXM1N3) GO TO 148 

D X 1 -ABS(X(NI,l>-XtINT,l)) 

D X 2 =ABS(X (Nl,2 t-X( INT,2) T ~ 

IF (0X1 .GE. DXMIN U GO T O 1 45 

"DXHI NI =DX i " 

NXHIN1=NXMIN1+1 _ _ 

NF 1 - 1 ' “ "" 

NFS1=NI _ _ 

IN1=J 

INT1=1NT 

“IF ( KODE (NFSn .NE. 2> GO T0‘l4S _ ' 

144 PRINT 1202 

NSLI0E = 2 “■ ‘ T 

GO TO 500 

145 CONTINUE 

IF. ( DX 2 .GE. DXHIN2) GO TO 148 

0XMIN2-DX2* " 

NXHIN2-NXHIN2+3 


GO TO 150 






-113 


SLID 


DATE Q1Q978 


00646 

242* 


NF 2=1 




001356 

00647 

24 3* * 


Nf 52-NI 




001360 

00650 

244* 


IN2=J 




001363 

0065 J 

245* 


I N T2 = 1 NT 




001365 

00652 

246* 


IF (KOBE t NFS2 1 .NE„ 2) GO TO 148 




001367 

00654 

247* 


GO TO 144 




001372 

00655 

248* 

148 

CONTINUE 




001377 

00657 

249* 

150 

CONTINUE 




001377 

00661 

250# 


IF (NXMIN1 ,E0. 0 .AND. NXMIN2 .EQ. 0) 

GO 

TO 

185 

001377 

00663 

251* 


NF = NF 1 




0301407 

00664 

252* 


I N-I N 1 




001411 

00665 

25 3* 


NFDG-NF SI 




001413 

□ 0666 

254* 


I NOG =1 NT 1 




001415 

00667 

255* 


IF (DXMIN1 .LE. DXMIN2 1 GO TO 152 




001417 

00671 

256* 


NF-NF2 




001423 

00672 

257* 


I N - 1 N 2 




001425 

00673 

258* 


NFDG-NFS2 




001427 

00674 

259* 


I NDG = 1 NT 2 




001431 

00675 

2b0* 

152 

CONTINUE 




001436 

00676 

261* 


00 155 J = l,2 




0D1436 

00701 

262# 


I I-I6DISTI J> 




001442 

00 302 

263# 


IF ( II .EO. 0 ) GO TO 155 




001444 

00704 

264* 


00 153 1 = 1 * TX 




001446 

00 707 

265* 


IE-lBDIS(IjJ) 




001452 

00 710 

266* „ 


IF (IE .EQ. NFOG ) NSLIDE=-1 




001453 

D0712 

267# 

153 

CONTINUE 




001 467 

00714 

268* 

155 

CONTINUE 




001467 

00 7 3 6 

269# 


DO 160 N=1,NET 




001467 

00721 

270* 


DO 160 1=1, NPE 




001476 

00 724 

271* 


NI=NOD(N, I ) 




001476 

UU 725 

272* . 


IF INI .NE. INDG) GO TO 160 




001500 

00727 

27 3* 


I NEL = N 




001502 

00730 

274* 


KPE = I 




00 1 504 

00731 

275* 


DO 156 H= 1 , NE T 




001515 

00734 

276* 


DO 156 J= 1 , NPE 




001515 

00737 

277* 


H j=NOO (H, J) 




001515 

00740 

278* 


IF <MJ .NE. NFOG 1 50 TO 156 




00 1 S 1 7 

00742 

279* 


IF (J .NE. K PE > GO TO 156 




001521 

00744 

280* 


NFEL = M 




001524 

00745 

28 1* 


GO TO 162 




001526 

00746 

282* 

156 

CONTINUE 




001543 

0075 1 

283* 

160 

CONTINUE 




001543 

00754 

284* 

162 

NDIFEL=M-N 




001543 

00755 

285# 


DO 17D 1=1 t INTEL 




C301545 

00760 

286* 


N=INTELH ( I ) 




001553 

00761 

287* 


K=N+NDIFEL 




001555 

00762 

288* 


00 168 K = 1 , NPE 




001560 

00765 

289* 


NK=N00(N,K1 



•* 

001565 

00766 

290# 


MK=NOD(M,K ) 


’ 


001567 

00767 

291* 


IF ( K ODE INK) .NE. -21 GO TO 168 




' U01572 

00771 

292* 


X (MK , 11 = X( NK , 1 1 




001575 

00772 

293# 


X ( MK ,2 >=X ( NK , 2 3 




001577 

00773 

294# 


DO 365 J=1 , INTFT 




001604 

00776 

295* 


N J= I N TF (J) 




001604 

00777 

296* 


IF (NK . NE. N J .OR. KODE(NJ) .NE. -2 1 

GO 

TO 

165 

on l bDS 

01001 

297# 


INTF ( J ) = MK 




001623 


SLID 


DATE 010978 


01002 

01003 

298* 

299* 

165 

KODE (HK > = -S • 
CONTINUE 

001623 

001634 

01005. 

300* 

168 

CONTINUE 

001634 

01007 

301* 

170 

CONTINUE 

001634 

0101 1 

302* 


H =NE PJ-1 

001634 

01012 

303* 


LIN = 0 

001637 

oioi-3 

304* 


00 172 1=1, INTEL 

001643 

01016 

305* 


N=INTELH(I> 

001643 

01017 

306* 


H = H + 1 

001644 

01020 

307* 


00 171 K=1 , NPE 

001650 

01023 

308* 


H K = N 00 <M,K ) 

001655 

01024 

309* 


IF ( KODE ( HK 1 .NE. *2) 60 TO 171 

001656 

01026 

310* 


LIMLINH 

001662 

01027 

311* 


NK =N00 ( N , K ) 

001 665 

0 1030 

312* 


X ( HK , l ) =X ( NK , 1 ) 

001667 

01.0 31 

313* 


X <MK ,2 )=X (NK ,2) 

001672 

01032 

314* 


KODE 1 HK 1 = 1 

001674 

01033 

315* 


NDEG ( L I N 1 =HK 

001676 

01034 

316* 

171 

CONTINUE 

001705 

01036 

317* 

172 

CONTINUE 

001705 

01040 

318* 


L I A0 = 0 

DO 1 7 05 

0 104 1 

319* 


DO 173 1=1, NFS! 

001711 

01044 

320* 


I I=NFS 1 I > 

001711 

01045 

32 1* 


IF t KOOE (111 .NE. -S) 60 TO 173 

001712 

0104 7 

322* 


LIAO=LIAO+1 

001716 

0 1050 

323* 


NFSm=NDEG<LIA0> 

001721 

01051 

324* 

173 

CONTINUE 

001726 

01053 

325* 


H=NEPJ-I 

001726 

01054 

326* 


DO 178 1=1, INTEL 

001734 

0 1 U 5 7 

327* 


H=H+ 1 

* . 001734 

01060 

328* 


N=INTELHII) 

001737 

01061 

329* 


DO 175 J=1,NPE 

001741 

01064 

330* 


HJ=NOO(M,J) 

001752 

0 1065 

331* 


IF (HJ .GE. NPPJ) GO TO 175 

001753 

01067 

332* 


DO 174 K=1,NPE 

001762 

010 7 2 

333* 


NK =NOD ( N , K ) 

001762 

01073 

334* 


IF(HJ .NE. NK ) GO TO 174 

001764 

pints 

335* 


HN=N+NPl FEL 

001766 

01076 

335* 


L K = N 00 ( HN , K ) 

001770 

01077 

337* 


NOD < M , J ) =LK 

001775 

01100 

338* 

174 

CONTINUE 

“ “ - • 002006 

01102 

339* 

175 

CONTINUE 

002006 

01104 

340* 

178 

CONTINUE 

002006 

01106 

34 1 * 


IF (NSLIDE .GE. 0) GO TO 185 

002006 

OHIO 

342* 


00 182 U=l,2 

002014 

01113 

343* 


IF(I&DIST<J) . E Q . Q) GO TO 182 

002023 ’ 

01115 

344* 


II=I8DIST( J) 

002025 

01116 

345* 


DO 180 1 = 1 , II 

• ‘ 002027 

01121 

346* 


NI = IBDIS(I , J > 

002034 

01122 

347* 

180 

XCNI,J>=XPRV(NI,J» 

1 002037 

01124 

348* 

182 

CONTINUE 

002047 

01 126 

349* 

185 

00 190 1=1, NPS 

002047 

01131 

350* 


IF t KOOE ( I ) . L T • ' 2 J KODE 1 1 ) = 1 

" 002047 

01133 

351* 

19[) 

continuf 

002056 

01135 

352* 


INOFXrl 

002056 

0 1136 

35 3* 


RF lUKN 

002060 
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SLID 


01137 

354* 


200 

CONTINUE 



0J137 

35 5 * 

C 





01137 

356* 

c 

UPDATE DATA DUE TO REBOUND 

OR 

SLIDING 

01137 

357* 

£ 





01140 

358* 



00 215 1=1, NPS 



01143 

359* 


215 

K ODE ( NI > =3 



01145 

360* 



IOMI T=NPP JT-NPPJ+1 



01146 

361* 



DO 218 J=1 ,3 



01151 

362* 



M = IBDIST < J I 



01152 

363* 



IBDIST(J)=M+IOMIT 



01153 

364* 



N=NPPJ-1 



0 1154 

365* 



DO 218 I=1.I0HIT 



01157 

366* 



N=N* 1 



01160 

367* 



M = M + 1 



01161 

368* 



IBDIS (H, J)=N 



01162 

369* 



OISBD(H,J 1=0.0 



01163 

370* 


218 

CONTINUE 



01166 

371 * 



DO 220 J=1,IU 



01171 

372* 



M = IBD V T ( J ) 



01172 

37 3# 



IBDVT (J)=M+IOMIT 



01173 

374# 



N=NPPJ-1 



01174 

375# 



00 220 1=1 , IOMIT 



01177 

376* 



N = N* 1 



0 1200 

377* 



M = H* 1 



01201 

378* 



1BDV (M,J)=N 



01202 

379* 



VBO ( M , J 1 =0 . 0 



01203 

380* 



IF (J .EQ. 5.) VBO(mT,J) = 

VERPR V ( N , J ) 

01205 - 

381* 


220 

CONTINUE 



U 1 2 1 0 

58 2* 



DO 225 J=1 , 3 



01213 

38 3* 



DO 225 K=1 , 3 



01216 

384* 



H = I8 DST (J,K ) 



01217 

385* 



IBDST ( J , K ) =M+IOMIT 



01220 

386* 



N=NPPJ-1 



012 21 

387* 



DO 225 1=1 , IOMIT 



01224 

388* 



N = N ♦ 1 



01225 

389* 



M =M + 1 



01226 

390* 



1BDS(M,J,K>=N 



01227 
0 l 2 30 

391 * 
i't'S* 



SBD ( M , J , K > =0. 0 
£ ONf IN LIE 



01234 

393* 



RETURN 



01235 

394* 


300 

CONTINUE 



01235 

395* 

C 





01235 

396* 

C 

TEST THE PENETRATION CASE 



01235 

397* 

C 





01236 

39B* 



DO 350 N=1 , NET 



01241 

399* 



DO 330 1=1 , NPE 



01244 

400* 



N T= I 



01245 

401* 



ND = NOD t N , NT ) 



01246 

402* 



IF (KODE(ND) .EO. 0) 60 

TO 

330 

01250 

403* 



IF (K00E1ND1 .EQ. 4) GO 

TO 

330 

01252 

404* 



M J1 =0 



01253 

405* 



DO 302 J= 1 , 4 



01256 

406* 



IF (NT .EO. MOVE 1 ( J , I ORDC ) ) 

M J 1 =K0 

01260 

407* 



IF (NT .EQ. MO VE 4 ( J , I ORDC ) ) 

H J 1 =M0 

01262 

408* 


302 

C0N7 lNUfc 



01264 

4 09* 



MJ2 = 0 




DATE 010978 



VE4(J,I0RDC» 
VE.l t J , IORDC ) 


002064 
.002064, 
002064 
002D64 
002064 
002071 
002073 
002077 
002107 
002111 
002113 
002117 
002117 
002121 
002126 
002127 
002136 
002136 
00214 7' 
002151 
002153 
002 157 
002157 
002161 
' 002 164 
002167 
002170 
002214 
002214 
002214, 
"002222 
002224 
002226 
002232 
002232 
00223** 
00224 1' 
002242 

002252 
002252 
002263 
002263 
"002 26 3* 
002263 
002263 
002263 
002263 
002267 
002272 
002274 
002277 
002303 
002303 
002307 
002316 
U n 2 3 1 6 
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> 


01265 
01270 t 

110* 

til* 

00 303 J-l | 4 

IF (NT .EG. M0WE2(J,I0RDC) > MJ2-MOVE5IJ.IOROCJ 

002322 

002322 

01272 

112* 

IF (NT ,EQ. H0VE5(J,I0RDC1) H J2=HOVE 2 I J , IOROC 1 

002326 

. 0127*1 

in* 

303 CONTINUE 

002335 

01276 

14* 

MJ3 = Q 

002335 

01277 

1 1 5 * 

DO 304 J=l,4 

002341 

01302 

• 16# 

IF (NT , E 0 . M0V£3(J T I0RDC) 1 MJ3-MOVE6(J,lOf?OC) 

002341 

01304 

• 17# 

IF (NT .EO. M0VE6 ( J tIORDC I ) MJ3-M0VE3(J*I0RDC) 

002345 

01306 

4 18* 

304 CONTINUE 

00 2 3 54 

01 31D 

4 19* 

NTX-0 

002354 

01311 

420* 

- IF (MJ1 .EG. 6) GO TO 310 

002355 

01313 

421* 

NJUNOOf N,MJ1 ) 

002357 

01314 

422* 

0 F 1 = AB 5 ( X N ( NO , i 1 -X N I N J l , 11 ) 

002365 

01315 

42 3* 

IF ( OF I .LT. DMIN1 NTXrl 

002371 

01317 

424* 

310 NTY = 0 

002400 

01320 

425* 

IF (MJ2 . E Q . 0) GO TO 314 

00 2 4 Q 1 

01322 

426* 

NJ2-N0D(N,MJ2) 

002 403 

01323 

427* 

DF2=A8S(XN(N0,2)-XN(NJ2,2>) 

002411 

01 324 

42R* 

IF 1 DF2 .LT. OHINI NTY = 1 

002415 

01326 

429* 

314 N T2 - 0 

002424 

01327 

430* 

IF ( H J 3 .EQ. Ot GO TO 317 

002425 

01 33 1 

43 1* 

NJ 3-NOD ( N T K J 3 1 

002427 

01332 

432* 

DF3=ABS(XN(ND,3 l-XN (NJ3,3 ) ) 

002435 

01333 

433* 

IF ( OF 3 .LT. OH I N ) NTZ^l 

002441 

01335 

4 34* 

317 CONTINUE 

002452 

01336 

4 35* 

00 318 K-1,NFST 

002452 

01341 

4 36 * 

NK-NFStK ( 

0024S2 

01342 

4 3 7* 

IF ( NK .EG. ND .AND. KODE(NK) .NE. 2) GO TO 319 

002455 

01344 

438# 

318 CONTINUE 

002472 

01 346 

4 39* 

GO TO 330 

002472 

01347 

440# 

319 CONTINUE 

002474 
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01414 

466* 

326 

CONTINUE 

002563 

P1416 

467* 

327 

CONTINUE 

CHJ2563 

01417 

468* 

00 328 K=l,3 

002563 

01422 

469* 

328 

X ( ND,K >=XPRV (ND ,K ) 

002570 

01424 

470* 

330 

CONTINUE 

0026Q1 

01426 

471* 

350 

CONTINUE 

002601 

0 1430 

472* 


DO 380 1=1, NPS 

002601 

01433 

473* 


IF (kODEII) • F Q . -1> X ODE ( I ) = 1 

002604 

01435 

474* 


IF (KODE(I) .NE. 4) GO TO 380 

002611 

01437 

475* 


DO 355 J=1,IU 

002620 

0 1442 

4 76* 


M = I E\ D V T (J) 

002620 

01443 

4 77* 


I90VT (J > =M + 1 

002622 

0 14 4 4 

478* 


M J=I BOVT I J 1 

002624 

01445 

479* 


IBDVtMJ, J > = I 

002630 

0 1446 

480* 


VBD(MJ,J) =0. 0 

002632 

01447 

48 1 * 


IF (J . EQ . 5) VBO<MJ,J)=VERPRV II, J) 

002634 

01451 

482* 

355 

CONTINUE 

002651 

0 J453 

48 3* 


DO 358 J=1 , 3 

002651 

0 1456 

484* 


DO 358 K=1 , 3 

002657 

0 14 61 

485* 


M=IBDST( J,K) 

002657 

01462 

486* 


IBDST <J,K >=M+1 

002661 ■ 

0 14 6 3 

487* 


MJ=I3DST(J,K) 

002663 

01464 

488* 


IBDS(MJ,J,K)=r 

002671 

0 14 6 5 

489* 


SBD < HJ, J,K } =0 • 0 

002673 

01466 

490* 

358 

CONT INUE 

002706 

01471 

4y 1 * 


DO 360 J = 1 ,3 

002706 

014 7 4 

492* 


M = I8 DI ST ( J ) 

002706 

01475 •" 

49 3* 


IBDIST ( J 1 =M + 1 

002710 

01476 

494* 


HJ=I0DIST< J) 

002712 

0 14 77 

495* 


I BDI S(MJ, J)=I 

002713 

01500 

496* 


D I SBD 1 MJ , J ) =0.0 

002720 

01501 

497* 

360 

CONTINUE 

002725 

01503 

498 * 

380 

CONTINUE 

002725 

01505 

499* 


IF (NFRAC .EQ. 0) GO TO 410 

002725 

01507 

500* 


DO 397 1=1, NFRAC 

002727 

01512 

501* 


NI=NODFRC 1 1 > 

002734 

01513- 

502* 


IF (KODE(NI) • E 0 , 4 J GO TO 397 

002736 

01515 

503* 


KOBE <Nl)=n .... 

002741 

01516 



p!i 3U4 Jsl.NM.1f 

GO 2 74 5 

01521 

505* 


N J = N F S ( J ) 

002745 

01522 . 

506* 


IF (NI .EO. N J 1 MODE INI > = 1 

002746 

01524 

507* 

394 

CONTINUE 

002761 

01526 

508* 

397 

CONTINUE 

002761 

01530 

509* 

410 

RETURN 

002761 

01531 

510* 

500 

CONTINUE 

002764 

01532 

511* 


STOP 

002764 

01533 

512* 

1100 

FORMAT I2X, *********** PROJECTILE REFLECTED*//) 

'003040 

0 1534 

513* 

1200 

FORMAT (2X, *********** PROJECTILE SLIDES*//) 

003040 

01535 

514* 

1201 

FORMAT (2X, ****** PROJECTILE REACHES THE BOUNDARY.’//) 

003040 

01536 

515* 

1202 

FORMAT J2X, ****** PROJECTILE SLIDES OUT OF IMPACT Z0NE,’/2X, 

on3n40 

01536 

516* 

1 

• REGENERATING MESH IS NEEDED TO PROCEED THE CALCULATIONS.’) 

0U3Q4D 

01537 

517* 


END 

003040 



_ _ _ 





END OF COMPILATION: NO DIAGNOSTICS. 
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3HDG |P 


SORT 
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SORT 


DATE 010978 


SFORtS SORT, SORT 

HS A E3 701 / 09/78 -2 3 :44:36_tq f ) 


SUBROUTINE SORT ' ENTRY POINT 000140'" 

. s 


STORAGE USED: CODE (1) 0001SS: DATA < 0) 0 00070; BLANK C0 HH0N(2 > 000000 


EXTERNAL REFERENCES (BLOCK, NAME! 


0003 

NERR3J 







storage 

assignment 

(BLOCK, TYPE, RELATIVE LOCATION, NAjjE 1 






0001 

000114 I OOL 

0001 000025 106G 0001 000044 

1170 

0 001 

000056 

123G 

OOOO I 000042 I 

'oooo 

OOOO R 

000047 INJPS 
000045 TEMP 

OOOO I 000044 J OOOO I 000040 

OOOO I 000000 X 

K 

OOOO I 

000041 

H 

OOOO I 000043 N 


001Q1 

00103 

00104 

00104 

00105 
00110 

1* 
2* 
3* 
4 + 
5* 
6* 

.C 

SUBROUTINE SORT ( NODE , N Y , NN , NPE , MM ) 

DIMENSION XI321 , N Y < 32 >.,NOOE t HM , NPE > 

INTE6ER X 

PUT EXTERNAL NUMBERS IN .TEMP ARRAY X 

00 IQ K=1,NPE 
X (K1 = NODE ( NN, K 1 

000025 

00002S 

0D0025 

000025 

000025 

000025 

00111 

74 


N Y ( K ) -K 

000027 

om 12 

B * 

10 

continue 

000033 

00114 

9* 


K = NPE 

000033 

00115 

104 


M=NPE-1 

000035 

00116 

114 


DO 100 1 = 1, M 

000037 

00121 

124 


N = 1+ 1 

000044 

00122 

134 


DO 100 J=N,K 

000047 

00125 

144 


IF(X<I).LT.X(J>) GO TO IPO 

000056 . 

00127 

154 


TEMPrx 1 1 1 

000061 

00130 

164 


xm =x ( j) 

000064 . 

00131 

174 


X < J 1 =TE MP 

000066 

00132 

18* 


TEMP=NY (I 1 

000076 

00133 

194 


NY(I ) =NY ( J ) 

000101 

00134 

204 


NY I J 1 =TEMP 

000103 

00135 

214 

100 

CONTINUE 

000121 

00140 

224 


RETURN 

000121 

00141 

234 


END 

000154 


END OF COMPILATION NO _DI AGNOSTICS^ 


8HDG ,P 


STFG 



STFG 


DATE 010978 


3F0R.S STFG , STFG 

HSA . E3 -01/09/78-23:99: 37 ( It). 

SUBROUTINE STIFFS ENTRY VoTnT 00lT99 


STORAGE USED: CODE(l) 001262: DA TA 10 ) 0 0007 6: B LAN K C0HH 0 Nt2) QOnn no 

. COMMON -BLOCKS: 

_ 000 3 __ .ORTHPC .QOQD&Q 

0009 "PROJMT 000097 
0005 MATRL 000005 


EXTERNAL REFERENCES (BLOCK, NAME)' 


0006 


STIFF 
















0007 


NHOCS 
















0010 


N I 0 1 5 
















Don 


NI02S 
















00.12 


NERR3S 
















storage 

ASSIGNMENT 

(BLOCK, TYPE 

relative location, 

NAME) 








r "oooi 


000053 

10L 

0001 


D00222 

IDOL 

0001 


000195 

122G 

0 001 


000146 

1 25 G 

0001 000162 

1 33G 

0001 


000163 

1 36G 

0000 


000011 

1 9 OOF 

0001 


000169 

1 9 1 G 

0 001 


000204 

1S0G 

0001 00Q20S 

1 5 3G 

0001 


000206 

1 56G 

0001 


000227 

167G 

0001 


000230 

1 7 1 G 

0 001 


000295 

200G 

0001 000503 

200L 

0001 


000296 

202G 

0001 


000263 

2 1 1 G 

0001 


000269 

213G 

0 001 


000301 

222 G 

0001 000302 

224 G 

0001 


000691 

230L 

0001 


000319 

232G 

0001 


000315 

2 35G 

0 001 


000646 

240L 

000,1 000426 

247G 

0001 


001120 

250L 

0001 


000933 

252G 

0001 


000939 

2 55 G 

0 001 


000457 

26 4 G 

0001 000464 

267G 

OOOI 


000965 

272G 

0001 


000552 

305G 

0001 


000553 

3 1 OG 

0 001 


000567 

316G 

0001 000570 

0001 000653 

32 1 G 

0001 


000571 

329G 

0001 


000606 

333G 

OOOI 


000631 

39 1 G 

OOOI 


000632 

3 4 4 G 

3566 

0001 


000659 

360G 

0001 


000671 

367G 

0001 


000672 

371 G 

0 001 


000707 

400G 

0001 000710 

4026 

0001 


000725 

9 11G 

0001 


000726 

9 1 36 

0001 


000790 

9 2 1 G 

0 00 1 


00074 1 

4 2 4 G 

0001 001030 

4 36 G 

0001 


001035 

99 1G 

0001 


001036 

9 9 9 G 

0001 


00 1 OS 6 

9536 

0 00 1 


001105 

46 1 G 

0001 001106 

4 6 4 G 

0003 

R 

000055 

CK 

0000 

R 

000002 

CNT 1 

0000 

R 

D00007 

CNT2 

o no 3 

R 

000033 

E 

0000 R 000000 

FACT1 

0000 

R 

D00001 

FACT2 

0000 

I 

000003 

I 

0000 

I 

000006 

IN 

0 ooo 


0UD020 

INJPi 

0005 I 000004 

ISOP . 

ooos 

I 

000003 

ISOT 

ODOO 

I 

000009' 

J 

0000 

I 

000010 

K 

0 00 3 


000022 

LI 

0000 I 000005 

N 

0005 


000000 

NFRAC 

0009 

R 

000099 

P CK 

0009 

R 

000022 

PE 

ooos 

R 

000002 

PMIU 

0003 R 000044 

PNIU 

0009 

R 

000033 

PPNIU 

0009 

R 

00001 1 

PSLC 

0009 

R 

□00000 

PSLT 

0 OD 3 

R 

00001 1 

SLC 

0003 R OOODOO 

SLT 

OOOS 

R 

000001 

TMIU 












































, * 







00101 


1 * 


SUBROUTINE 

STIFFG(NPM,C,NP, 

NPT,INTF»INT,NPS,CF,CF, 

P, NO ,CINT 

t 


000040 


00101 


t* 


1 KODE.IUNIT! 










’ 000040 


00101 


3# 

C 













000040 


00101 


9* 

C 













000040 


00101 


5* 

C 

GENERATE 

STIFFNESS COEFFICIENTS 

FOR ISOTROPIC OR 

ORTHOTROPIC 


000040 


00101 


6* 

C MATERIALS 












000040 


ooioi 


7* 

C 













000040 


00101 


B * 

C 













000040 




-121 


STFG 


DATE 01097-6 


00103 ' 

00103 

9* 

10* 

DIMENSION CF t NO , ND ) » C ( NPM , NO , ND ) , I NTF < 1 1 , Cl NT ( I NT , NO , NDI 

1 ,KODE ( 11 .CFP(ND.NO) 

000040 

000040 

00104 

1 1* 


COMMON /ORTHPC/ SLT t 3 , 3 > , SL C ( 3 , 3 ) r LI < 3 , 3 1 

,F ( 3 , 3 1 *PNIU (3,3) ,CK(3> 

000040 

.. 00105, . 

00106 

12* 


C OM MON ' / P R 0>)M T L -P SUT 1 3., 3 } , R $LC (.3 , 3 } , P£< 
COMMON /HATRL/ NFRA C , TM IU , PM IU , IS OT , I SOP 

31.PPNIUI3.3 ) , P CK (3) 

000040 

1 3* 



000040 

00107 

14* 


FACT1=I .0 


000040 

0 0 1 1 Q 

15* 


FACT2-1.0 


000042 

ooin 

16* 


IF < I UN I T „EQ. 1) GO TO 10 


' 000043 

00113 

17* 


FACTl=6.895/100a00.0 


000046 

00114 

IS* 


FACT2=6. 895/100.0 


000050 

00115 

1 9* 

*-* 

o 

CONTI NUE 


000053 

00116 

20* 


IFdSOT .NE. 0) GO TO 100 


000053 

00120 

21* 


CNT1 =2 , Q*TMIU 


000054 

00121 

22* 


DO 18 1=1, ND 


000146 

00124 

23* 


DO 18 J=1,ND 


000146 

0D127 

24* 

IS 

CF<I.J1=CNT1 


000146 

00132 

2S* 

00 20 N = 1 , NP S 


000164 

00135 

26* 


00 20 I = 1 , ND 


000164 

DO 1 4 0 

27* 


DO 20 J = i , ND 


000164 

00143 

28* 

20 

C (N. I , J 1 =CNT1 


000164 

00147 

29* 


DO 3D I N= 1 * I NT 


000206 

00152 

30* 


DO 3 0 I - 1 * ND 


000206 

00155 

31* 


DO 30 J = 1 » ND 


000206 

00160 

32* 

30 

CINT (IN. I ,J)=CNT1 


000206 

UO 164 

33* 


GO TO 200 


000220 

00165 

34* 

100 

READ 1400, ( (SLT(I,J) ,J=1, 31 ,1=1,31 


000222 

00176 

35* 


READ 1400, <.<SLC<I,J> ,J=1,3) ,1 = 1 ,3) 


000237 

00207 

36* 


RFAD 1400, M E (I , J> , J=1 , 3 1 ,1=1 , 3) 


0QQ255 

0022C 

37* 


READ 14 00, ( (PNIUtI, Jlf, J = l,3) ,1 = 1 ,31 


00D273 

0023 1 

38* 


00 l 05 1=1,3 


000315 

U02 3 4 

39* 


00 105 J=1 ,3 


000315 

00237 

40* 


SLT ( I , J 1 =SL T (I,J1*FACT1 


000315 

00240 

4 1* 


SLC( I,J1=SLC( I,J1*FACT1 


000317 

0024 1 

4 2* 


E( I T J) =E <1 , J 1 *F ACT2 


000322 

00242 

4 3* 

105 

CONTINUE 


000332 

00245 

44* 


CALL STIFF <CF ,ND,E .PNIU.CKl 


00033? 

00246 

45* 


00 UO N = 1 , N PS 


000341 

0025 1 

46* 


00 no 1 = 1, NO 


000434 

00254 

4 7* 


DO 110 J = 1 , ND 


000434 

00257 

48* 

110 

C (N, I, J»=CF( I , J 1 


000434 

00263 

49* 


00 115 I N = 1 , IN T 


000465 

0026b 

50* 


00 115 1=1 ,N0 


000465 

0027 1 

51* 


00 115 J= 1 » NO 


000465 

00274 

52* 

115 

CINT(IN,I,J)=CF(I,J) 


00D465 

0 0 300 

53* 

200 

CONTINUE 


000503 

00301 

54 * 


IF tISOP .NE. 0) GO TO 240 


D00503 

00303 

55* 


CNT2=2 . 0*PHIU 


000504 

00304 

56* 


00 208 1=1, NO 


000553 

013307 

57* 


00 208 J= 1 ,N0 

i , 

000553 

00312 

58* 

208 

CFP (I , J 1 =CNT2 


000553 

00315 

59* 


DO 210 N=NP ,NPT 


000571 

00320 

60* 


DO 210 1=1 ,ND 


000571 

00323 

61* 


DO 210 J=1 ,N0 


000571 

00326 

6 2* 

210 

C (N, I , Jl =CNT? 


U00571 

00J32 

63* 


DO 2 30 K = 1 , I N T 


000606 

00335 



N=INTFIK> 


00(1606 



&OQd jq 


STFG 


DATE 01Q97B 


> 


ro 


Q0336 
00 34 0 

65* 

66* 

IF (KODE ( N ) .NE. 0) GO TO 230 
DO 220 I - 1 , NO 




□00607 

000632 

00343 

67* 

DO 220 J=1,N0 




000632 

00346 

68* 

220 C<N,I,J>=CNT2 




000632 

0Q351 

69* 

230 CONTINUE 




000642 

□ 0353 

70* 

. RETURN 




000642 

00354 

71* 

240 READ 14D0,<(PSLT(I,J),J=1,3),I=1,3) 




000646 

00365 

72* 

READ 14 00, < (PSLCU,J)i,J = l,3» ,1 = 1 ,3) 




000663 

00376 

73* 

READ 1400, ( <PEd,jj ,J = 1, 3) ,1 = 1,31 




000701 

00407 

74* 

READ 14 00, ( (PPNIUU.J) ,J=1,3),I=1 ,3) 




000717 

00420 

75* 

DO 241 1=1,3 




000741 

00423 

76* 

DO 241 J= 1 , 3 




000741 

00426 

77* 

PSLT(I,J)=PSLT(i,J>*FACTl 




00074 1 

00427 

78* 

PSLCII, J)=PSLC(I t J»*FACT1 




000743 

004 30 

. 79* 

PE(I,J)=PE(I»J)*FACT2 




000746 

00431 

80* 

241 CONTINUE 




000756 

004 34 

81* 

CALL STIFF ( CFP,ND , PE ,PPNIU ,PCK J 




000756 

004 3 5 

82* 

00 242 N=NP,NPT 




00076S 

00440 

83* 

00 242 1 = 1, ND 




001036 

00443 

84* 

00 242 J=1 , ND 




001036 

0 0 4 4 6 

85* 

242 C(N,I-,J)=CFP(I,J) 




001036 

00452 

86 * 

DO 250 K = 1 , 1 N T 




001056 

00455 

87* 

NrlNTF(K) 




001056 

0 0 4 5 6 

88* 

IF(KODE(N> .NE. 0> GO TO 250 




001057 

00460 

89* 

DO 245 1=1 , ND 




001106 

00463 

90* 

DO 245 J= 1 , NO 




001106 

0 0466 

91* 

245 C (N, I , J ) =CFP 1 1 , J > 




001106 

00471 

92* 

250 CONTINUE 




001121 

00473 

93* 

1400 FORMAT (8F10.2) 




001121 

00474 

94* 

RETURN 




001121 

00475 

95* 

END 




00i261 


END OF COMPILATION: ^0 _ h JS I AGN0_ST ICS»_ 



iHOG , P 


STIF 



-123 


STIF 


DATE 010978 


3F0R,S STIF, ST IF 
„HSA.. E3 .rP 1/09 7 78 ~2J:4 9: "ip J.Q,.). 


SUBROUTINE STIFF-’ " ENTRY POINT 000327 


STORAGE USED; .CODE! J ) .J0036Q.; OATAtO) 00 007 3; BLANK C0HH0N(2 S 000000 


EXTERNAL REFERENCES (BLOCK, NAME} 

• 

0003” ' SORT ” 

0009 NERR34 


STORAGE ASSIGNMENT (BLOCK, T Y PE~, REL AT I VE~ LO C A T I OfT, NAME) 


0001 

000055 

1116 

0001 

000056 

114G 

0001 

000114 

123G 

0 001 


000214 

142G 

0000 

R 

000013 

A 1 

0000 

R 000014 

A2 

0000 

R 000015 

A3 

0000 

R 000007 

H 

0 000 

I 

000005 

I 

0000 


000023 

1NJPS 

0000 

I 000010 

11 

0000 

I 000011 

12 

0000 

I 000006 

J 

0 00 0 

I 

0.0001 2 

k 

0000 

I 

OOOOOO 

HP 


00101 

00103 
00TO4 - 

00104 
0 010 6 
uuio 7 
00107 
00110 
00113 
00116 
00121 

1* 
2 * 

3* 

4* 

5 * 

6 * 
7* 
8* 
9* 

10* 

11* 

C 

C 

SUBROUTINE STIFF ( CF , NO *E , PN I U , CK ) .. 

DIMENSION CF (ND ,N0 1 ,MP (5 ) iE ( 3, 3 ) ’,PNIU ( 3,3 ) ,'ciu 3> 

DATA HP/1,2,3,1,2/ 

FNCT1(A,S,X,Y)=(1.0“A*8)*X/Y 
FNCT2( A,B,C,X,Y)=(A+B*CI*X/Y 

DO 20 1=1, NO 
00 2D J=1,ND 
20 C E ( I ,J)=0.0 

H=1.0-PNIU(1,2) *PNIU (2 , 1 J-PNIU (2 , 3 1 *PNI U ( 3 , 2 ) -P N IU ( 3 , 1)*PNIUU , 3) 

000056 

000056 

G0Q056 

000056 

□□□056 

’ 000056” 

000056 

000056 

000056 

□00056 

000063 

00121 
00 1 2 2 

00125 

00126 
00127 
00130 

12* 
13* 
14* 
15 + 
16* 
17* 

- - • 

1 -2.0*PNIU(1,2)*PNIU(2,3)*PNIU(3,1 ) 

DO 25 1=1 , 3 
J= I ♦ 3 

I1=MP(I+1) _ 

I 2=MP ( I ♦ 2 ) ' ■“ ‘ ” ~ ” ' ' 

CF(I,I)=FNCTl(PNIU(Il ,12) ,PNIU(I2,I1 ) ,E1I,I),H) 

000063 

000114 

000114 

0QD117 

000121 

000123 

00131 

18* 


25 CF t J, J >=E ( 11 , 12) 

000142 

001 33 

19* 


CF (1 ,2 ) =FNCT2(PN IU(2, 1 ) ,PNIU(2,3),PNIU(3,1),E(1,1),H) 

000154 

00134 

20* 


CPU ,3)=FNCT2(PNIU('3, 1 ),f>NIU (2,1 ) ,PNIUC3,2> ,E('l,l),H) 

000162 

□ 013$ 

21 + 


CF(2,3>=FNCT2(PNIU(3,2),PNIU(1,2),PNIU(3,1>,E(2,2),H) 

000171 

00136 

22* 


C F 1 2 , 1 ) =CF (1,2) 

000177 

00137 

23* 


CF ( 3 , 1 > =CF (1,3) 

000201 

00140 

24* 


CF (3 ,2 ) =CF | 2 , 3) 

000203 

00141 

25* 


00 30 1=1,3 

000214 

00144 

26* 


J=MP (1+1) 

000214 

00145 

27* 


K=MP (1*21 

C00230 

00146 

28* 


A 1 = ( 1 .0 + 4.0*PNIU(I, J)-PNIU(I,X ) )*E( J,J) 

(10024 1 

0014 7 

29* 


A2=( 1 .O-PNIU ( J,K I )*E ( I ,1 1 

000747 

GUI 50 

30* 


A3 = S0RI (E (I ,1 )*E < J,J)*(2.0 + PNIU(I ,d) +PNIU (I ,k) )*<2.0 + PNIU( J,f ) 

U00253 

00150 

31 * 


l + p r; I u ( J ♦ k > n 

IH10563 



frZl~ 


ST IF 


00151 32* • 30 CKtI)=(Al*A2»/A3 

00153 33* RE TURK 

00154 34* END 



END OF COMPILATION: 


DIAGNOSTICS 


SHDG.P " STRN " "• 


> 


DA.TE 010976 


OOD273 

000300 

000357 



STRN 


DATE 01 0978 


aF0R f S STRN t STRN 
'.MSA E 3 -01/09/76-23 : 44 :_4.3 .J_3.,J 


"SUBROUTINE STRENG ENTRY" POINT 00Q440~ 


STORAGE USED: CODE(l) 000466: DA TA (0 ) 000 067: BLANK COHM ON(2> 000000 
COMMON BLOCHS: 


. 0003 CEL21 .0000,15 

0004 NOOEPJ 000003 

0005 MATRL 000005 


EXTERNAL REFERENCES (BLOCK j NAME J 

‘DO 06 SORT 
0007 NERR3S 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME! 


>-• 

0001 


000224 

100L 

0001 

000073 

1 17G 

0001 

— 

000122 

125G 

0 00 1 

— 

000123 

130G 

0001 


000150 

143G 

J— 1 

0D01 


000210 

156G 

0001 

000211, 

1 6 1 G 

0001 


000273 

1 75 G • 

0 001 


000230 

200L 

0001 


000302 

202G 

M 

'0001 


000303 

205G 

0001 

000330 

220G 

0001 


000367 

233G 

0 001 


000370 

236G 

0001 


000341 

405L 


0001 


000400 

4 20L 

0001 

000163 

58L 

0001 


000221 

80L 

0 00 3 


000001 

A 

0003 


000002 

ALPHA 


0000 

R 

00001 2 

BETA 

0003 

000013 

DELT 

0000 

R 

OOOOOS 

FJ2 

0 000 

I 

000006 

I 

0000 


000016 

IN JP I 


0D03 

I 

000011 

INNER 

0004 ) 

: 000002 

INTFT 

0003 


000000 

IORDC 

0 00 5 

I 

000004 

ISOP 

0005 

I 

000003 

ISOT 


0003 


000012 

ITER 

0000 1 

: 000007 

J 

0000 

I 

000002 

K 

0 000 

I 

000000 

L 

0000 

I 

OOOOOl 

LP 


0000 

I 

000010 

M 

0000 1 

[ 000003 

N • 

0003 


0Q0006 

NBU 

0 00 3 


OODOIO 

NEP J 

0004 


OODQOO 

NEP JT 


0003 


000003 

NET 

0005 

DO PO 00 

NFRAC 

0003 

I 

000014 

NFST 

OOU3 


000005 

NHBU 

DOO 3 

I 

000007 

NN 


0004 

I 

000,001 

NP 

0003 I 000004 

NPS 

0005 


000002 

PMIU 

□ 00 0 

R 

00001 1 

RATIO 

0005 


OOOOOl 

TMIU 


OOOO 

R 

000004 

Y 2 

— 

— 





* 








- — 

- 


- 

- * * — 


00101 


l* 


SUBROUTINE STRENG (NPM , STS , Y 

»NFS, 

INTF ,KODE 1 





.. . . 

000047 



001D1 


2* 

C 












000047 



00101 

00101 

00101 

00101 

00103 

00103 

00103 
00 104 ' 

00104 
0D1 05 
00106 
001.06 
00106 
00 107 
00111 


3* 
4 + 
S* 
6 * 
7* 
8 * 
9$ 
10* 
11 * 
12 * 
13* 
14* 
15 * 
16 * 
17* 


C VON MISES CRITERION FOR ISOTROPIC MATERIALS 
C _ _ 

c" " ' 

DIMENSION STS (NPK,3 ,3 > , Y (1 > ,INTF ( 1 ) ,KODE < 1 1 
1 , NFS ( 1 1 


COMMON /CELZ1/ IORDC, A, ALPHA, NET, NPS , NHB U , N B W , NN „NE P J .INNER, 
1 ITER , DELT , NFST __ 

COMMON /UODEPJ/ NEP J T , NP , I NT FT 

COMMON /MATRL/ NFR AC , TM I U , PM 1U , I SOT ,1 SOP 


IF (ISOP .NE. 0) RETURN 
IF (ISOT) 20., 100,20 


DD0047_ 
'000047 ' 
000047 
" 000047 
000047 
000047 
000047 
' 000047 
000047 
000047 
000047 
000047 
000047 
000 04 I 
000062 



126 


STRN 


DATE 010978 


00118 

16* 

' 20 

L =NN 



000068 

0011S 

19* 


LP=NP 



000066 

00116 

20* 


00 60 K=1,INTFT 



000073 

00121 

21* 


N=INTF<K ) 



000073 

00122 

22* 


Y2=G. 33333333 *Y(NI*Y(NI 



000078 

00123 

23* 


FJ2=0.0 



000102 

00128 

28* 


DO 50 1=1,3 



000123 

00127 

25* 


DO 50 J = l,3 



' 000123 

00132 

’ 26* 

50 

FJ2 = FJ2+0.50*STS(N,I,JI*STS(N,J»I> 



000123 

00135 

27* 


IF (FJ2 .LE. Y2) GO TO 80 



000137 

00137 

28* 


IF (INNER .EQ. 1 ) GO TO 58 



000182 

00181 

29* 


KODE ( N ) =0 



000188 

00182 

30* 


00 55 I=1,NFST 



000150 

00185 

31* 


M=NFS(I) 



□ 00 150 

00186 

32* 


IF (N .EQ. Ml K0DE(N>=1 



000151 

00150 

33* 

55 

CONTINUE 



000163 

00152 

34* 

58 

CONTINUE 



000163 

00153 

00158 

35* 


RATIO=SQRT ( Y2/FJ2) 



000166 

36* 


8ETA=i.0-RATI0 



000176 

00155 

37* 


00 60 1=1,3 



000200 

00160 

38* 


DO 60 J=1 , 3 



000211 

00163 

39* 

60 

STSt N,I,J> = (1 .0-BETA)*STS(N,I,J) 



000211 

00166 

80* 

80 

CONTINUE 



000222 

00 170 

8 1* 


GO TO 200 



000222 

0 0171 

82* 

100 

L = 1 



000228 

00172 

83* 


LP=NPS 



000225 

00173 

88* 

200 

CONTINUE 



000230 

00174- 

- 8 5 * 


DO 820 N=L ,LP 



000230 

00177 

86* 


Y?=G.33333333*Y(N)*Y(N> 



000273 

' 00200 

8 7* 


F J2=0 .0 



000277 

00201 

88* 


00 800 1=1,3 



00 0.3 03 

00208 

89* 


00 800 J=l,3 



000303 

0U207 

50* 

800 

FJ2 = FU2+0.50*STS(N,I,JI*5TS(N,J,X> 



000303 

00212 

51* 


IF (FJ2 .LE. Y 2 1 GO TO 820 



000317 

00218 

52* 


IF (INNER .EQ. 11 GO TO 805 



000322 

00216 

53* 


KODE t N 1 =0 



000328 

00217 

58* 


DO 802 1 = 1 *NF ST 



000330 

00222 

55* 


M = NF S ( I ) 



000330 

lib at* i 

56* 


if t n ,f.b» mi KoestNi = i‘ 



000331 

00225 

57* 

802 

CONTINUE 



000381 

00227 

58* 

805 

CONTINUE 



000381 

00230 

59* 


RATIO=SQRT (Y2/FJ2) 



000385 

00231 

60* 


BETA=1.Q-RATI0 



000355 

00232 

61* 


DO 810 1=1,3 



000357 

00235 

62* 


DO 810 J= 1 , 3 



000370 

00280 

63* 

810 

STS(N,1,J)=(1.0-BETA)*STS<N,I,J) 



00D370 

0028 3 

68* 

820 

CONTINUE 



000812 

00285 

65* 


RETURN 

« 


000412 

00286 

66* 


ENO 

1 1 


. 000865 


END OF COMPILATION: NO D I AGNOS TI CS . 


SHOG.P 


SYM 



Appendix B 

NASTRAN Routines Changed 


Table 

Contents 

B 1 

XSEMC7 

B2 

XBSBD 

B3 

LINK 7 

B4 

XNPUTT2 

B5 

OUTPUT2 



td 


5CHMTZBIN209»OBJ(q},XSEMB7 


2 C T^E PURPOSE OF THIS ROUTINE IS TO Get THE NEXT MODULE To BE EXECUTED XSEM 3 

S C“ FROM -THE-OSCAR-P-JLE j— IMJTI AUUE-THE NOPULE-ANO CALI l Y~T ? - I T~ fS—J N XSEM -9 

9 c This link or call the unk in which the module resides. xsem s 

3 c — - xsem a 

6 INTEGER ANDF ,DATASF8ERRFL6,FIST .FISTNM.FSTRST *OPNTR ,ORF XSEM 7 

7 1 — *PARML jPARAM sP ARHN — POOL jfiEW ,-ft SH l F T } SCRCMM-, SCRTCM XSEM 8 

B 2 ,VP5 *VPARML,TYPECD »VPSX *WORDb ,«ORDE jPROGMl XSEM 9 

V 3 rTHlSLK-.GXlT&CORSZfSYSBUF * XSEM 10 

10 C XSEM n 

n D1 M£NsJ0N~SCRTCKJ2>tW 0RDB ( < ttTH0RDe<2»-rNUMBRI 10 7 XSEM — F2 

12 COMMON/SEM /MASK (MASK2 ,MASK3 »PR0GhIII5) XSEM 13 

13 1 — — XSEM — IN 

19 F /SYSTEM/SYSBUF , XX ( 3 7 ) .NBPC.NBPW.NCPW XSEM IS 

1 6 H /XU NK /LXLINK,MAXLNK,MXLJNM 1 I XSEM 17 

n 1 XSEM 1-8 

IB 2 /XFIST /FISTIIl XSEM 19 

20 9 /XPFIST/FSTRST XSEM Zl 

22 6 /OSCENT/INOSCRIZOO) XSEM 23 

23 j XSEM — 29 

Z9 8 /ESFA /DATABFU1 XSEM 25 

25 9 XSEH — 26 

26 A / /PARAH(IOO) XSEH 27 

,28 C /XVPS /VPStl) XSEM 29 

?Kj D XSEH 30 

30 E /HSGX /NM5G XSEM 31 

3J C — XSEM— 32 

32 OATA REW / 1/ (NOREW/ O/.PflOL /9HP00L/ XSEH 33 

— 33 SCRTCH — /9HSCRA » 9HTCH0/ XSEM — 39 

39 9, NUMBR/lHO,tHl,tH2,lH3,lH‘),lHS,lHi,lH7,IHB (1 lH9 / XSEM 35 

35 bT WOflDE /-9HB6GN ,9hEND— / X5EM 36 

36 6, JBLNK/9H / XSEH 37 

37 6, ■ ■ - HODX /-— 200/ XSEM — 3B 

38 7, EX 1 T/9HEX I T / XSEM 39 

3? — — -DATA- TH1SLK/--7/ - X5EM— 90 

90 DATA BCOZRO / 1 HO/ XSEH 91 

*P1 €*«■*«■♦ X-SEM ■■ 9 8 

92 c initialize machine dependent constants xseh 93 

9-3 CALL SETCIlS! - 

99 CALL 8TSTKP XSEH 99 

96 c»»*** - - XSEH — 95 

96 C CALL BGN5YS TO INITIATE PROCESSING XSEM 96 

97 C» »» « XSEM 99 

98 KSCR** LSHIFT ( I *NBPW-9*NBPC) XSEM 98 

99 CALL BGNSYS- - -- XSEM—99- 

50 I6UFI » CORSZ(DATABF.PARAH)-SYSBUF XSEM 50 

51 GO TO 30 • ■ • - XSEM - 51- 

52 C •*• •• XSEM 52 

S3 c— Return here after-module has executed xseh — sa 

59 c » * • * • XSEH S9 

55 10 I F ( TY,P£CD t oT« 2 .AND. IN0SCRI9) ,NE, EXIT) GO TO 20 -XSEM 55 



w 

I 

tv 


56 CALL SSWTCH (6»L> 

S7 koRUB J 4 ) -»r-WORDrtT> 

SB CALL CONM56(WORQp* i i*L> 

59 ?0 “IF | NMSG ~GT • “ 01 CALX - MSGWRT 

60 CALL OPEN(S27O,P0oL,DATABF(IBUFi) ,Z> 

' 5T : 

62 C READ THE OSCAR ENTRY 

y-j C*»»»» 

64 30 fALL READ(*28O,S't0,P00L,IN0SCR ) 20a»l,ERRFLG) 

65 GO 'TO' 290 

66 40 IF UN0SCRUM50 t 30,30 

57 or*"* *» 

68 C THY AGAIN IF EXECUTE FLAG IS OFF 

W C» * * *« : 

70 BO CALL CLOSEIPOOL,?) 

71 TYPtCp- ' ANDF I IN0SCRT3T7MASK ) 

72 €•*••• 

■ T 3 C~N9 W OETE R H t NE" TTP E-OK-03rA R - FTJRTt AT 

7 *1 

75 IFT T YPECD JGT* 21 «0-To~200 

76 C****« 

77— 

7 B C NOW PROCESSING TYPE 0 AND F 

J7 1 

80 60 HOONO- 1 NOSCR ( 2 ) 

• — si fist (2>»-fstrst = — 

82 OPNTR ■ 7 

—.31 5 ASSIGN - UO-TO-HH 

84 F1STNM-10I 


-g 5 C ♦ • » • • 

86 C PROCESS FILES IN OSCAR' ENTRY. 

57 C • « * ♦ « 

88 70 U«INOSCR(OPNTR) 

37 OPNTfi-OPNTR* t * 

70 IFI j.e;q.oJ GO TO 100 

— n Do-70- i-i»o 

72 CALL GNFlSTIlNOSCRlOPNTRl .F iSTNh.HODNO) 

93 ir IHOONOI -60i*6DT80 

74 80 OPNTR- OPNTR* 3 

»5 70 FISTNM-FjSTNMtt 

76 IPO GO TO HH t (ll0,120) 

— *■* - — — — € * • ♦ * — 

78 C SETUP TO PROCESS OUTPUT FILES 

100 UO' IFITYPECD.EQ.2) GO TO 120 

— 101 ASSIGN -WO-TO-HM 

102 FlSTNM-201 

— t-OT 60 -T 0-70 

104 C •• • • • 

— tos — C PROCESS SCRATCH FILES — 

106 C****» 

— 107 120 31- l NOSCR t OPNTR ) — 

108 I F t J 1 t EQ .0 ) GO TO 140 

— m FISTNH--301 — 

1 10 SCRCHM-LSHIFT(RSHIFT(BCOZRO,NBPW-NBPC1 ,NBPW-4*NBPC) 

— Ill DO 130 J«l»Jt 


X5EM 56 

XSEM 57 

XSEH 56 

XSEH — 59 

XSEM 60 

XSEM 5T 

XSEM 62 

XSEH — "63 

XSEM 64 

XSEM 65 

XSEM 66 

XSEM 37 

XSEM 68 

XSEM 47 

XSEM 70 

XSEM 71 

XSEM 72 

XSETM 73 

XSEM 74 

XSEM — 75 

XSEH 76 

XSEH 77 

XSEM 78 

XSEM 77 

XSEM SO 

X S EH — 8 1 

XSEM 82 

XSEM — 83 

XSEH 84 

XSEM 65 

XSEM B6 

XSEM — 87 

XSEM 3 8 

XSEM— SI 

XSEM 70 

XSEM 71 

XSEM 92 

XSEM— 93 

XSEM 74 

X S E M — 7 5 

XSEM 76 

XSEM 77 

XSEM 78 

XSEM — 79 

XSEM 100 

XSEH— 101 

XSEM 102 

XSEH— 103 

XSEH 104 

XSEH— 105 

XSEH 106 

XSEH - " $ 07 

XSEM 108 

XSEM— 107 r 

XSEM 110 

XSEM- lit - 



112 

-4-W- 


1H 

-HHjr- 

iU 


bd 

I 

w 


SCRCHM* SCRCMH+KSCR 

-SCRTOU2}.>*-0flF<ANDF.4SCRTClH2)-,MASg2}-,SCnCHM)- 
CALl'GNFIST|SCRTCH,F1STNH,HOONO) 
-|HMODMO>-iOsr240H-30— — 


13D FISTNM*FlSTNH*l 

URuOfm-TR^l 

C • • ® • o 

-G-NOW-PROCESS-PARAMETER-LlST-lN- OSCAR 

C PARHN * NO, OF PARAMETERS TO PROCESS 
-£»*»«« 


XSEM 112 
-JCSEM-1-13- 
X5EM m 
-XSEN-1 15- 
XSEM IU 
-XS£H— H-7- 


PARHNolNOSCRlOPNTRJ 
-f-FH PARMN — i£Q-»— 0-)— 50— TO--3Q0- 

J l**l 

9PNTR-'0PNTR+-l 

DO 190 J2-1, PARHN 


xsem no 
-XSEH-4 19- 
XSEH 120 
-X-5EM — 1 2 1— 
XSEM 122 
-X- S 6M — 1-2-3 " 


-1FUNOSCR10PNTRH1?0,I50»150- 

c« * • * • 

~C— NQW— PROCESS— eONSf-ArNT— PARAMETER 

-IBO-PARMLwlNOSCRTOPNTftf 

OPNTRpOPNTR+ 1 
-00 140 -d3»l rPARML- 


PAR AM ( 1 I ) “JNOSCR t OPNTR I 
-H“H H 


160 OPNTH-OPNTR+l 

- -60- TO- 190 7 

C* o o to 

-C-M9VE-V-AK I A6UE-1 NTO-C-OMMON- V I A-VPS-T ABLE-- 


- 1-7-0 - V P S X =■ - A N 0 F- ( -TN 0SCR4 0 RN T R- >-^HA S K 3 1- 
OPNTRpQPNTR+1 

-VPARMt|»VPS(VPSX-l i 

00 ISO U5«*I , VPARML 

-PARAM(U)“VPS(VPSX) 

J 1*1 Itl 

-l-80-VPSX»VPSX*l 

190 CONTINUE 


XSEM 124 
-XSEM— 1-25- 
XSEM 126 
-XSEM-F2 7- 
XSEH 128 
-XSEHHrZT- 
XSEM 130 
-XSEM— 1 3 1— 
XSEM 132 
-X 5 EH— 1-3-3- 
XSEM 134 
-XSEH-1-35- 
XSEM 136 
-XSEH-137- 
XSEM 138 
-XSEH-439- 
XSEM 140 
-Xsem — 1-4- 1— 


C USE LINK SPECIFICATION TABLE CMXLJNk) JO DETERMINE IF MODULE RESIDES 

•0 -1N -TH1S LINK* — 

C MODX » INDEX into MXL1NK 

-{«»«•> ’ . 


?00 MODX - RSHIFTC IN0SCR13) ,16) 

IF-(ANPF(HXLINK(M0DX) .LSHIFTU ,T H ISLK-1 > 1 


>NE» 01-— GO- TO 280- 


XSEM 142 
-XSEM— 143- 
XSEM 144 
-XSEM-H6- 
XSEH 146 
-XSEM— 147- 
XSEM 148 
-XSEM— 1 49- 
XSEM ISO 
-X S EM-16 1- 
XSEM 152 
-XSEM— 1 S3— 
XSEM 1 S 4 
-XSEM-IB6- 


C MODULE IS NOT IN THIS LINK - DETERMINE CLQSEST LINK WHERE IT RESIDES, XSEM 156 


- J ■«* 2*MAXLNK -6-1- 

00 210 ! » t ,M AXLNK 

-1F(ANDF1MXLINKIMOoX),USH-IFT 1 l ,1-1 » )— » EQ «- 0) — GO— TO— 2 1 0 

C MODULE IS IN link I i* SEE IF LINK I IS CLOSER THAN LINK J. 

IF1M1N0I UBSlTHlSLKrJl , I A8S (THI SLK-II J ,EQ, I ABS 1 TH I SLK-J ).) 

1 60 TO 220 

C-LINK- I IS CLOSER- THAN- J - MAKE LINK J CLOSEST LINK FOUND SO FA**, — 
J - 1 

■210 CONTINUE 

1 * 2*MAXLNK 

220 IF( J «GT, MAXLNK > - 60- TO 940 - ■ • - 


-XSEM— 1 67- 
XSEM 158 
XSEM— 159- 


XSEM 160 
— XSEM— 16 1- 
XSEM 162 
—XSEM- 163 
XSEM, 164 
— XS EM-4 65- 


XSEM 166 
— XSEM 167. 



ttf 

1 

NX 
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C CALL EHOSyS TO GET LINK J XSEH 188 

E— CHECK FOR -LINK-I-bE-IHO-SAHE DiSTANCE-AS -J-FROM-THI-SLK,~IF- IT— JS-G0-*O-XSeH-F 89- 
C LINK I SINCE LINK TAPE SHOULD BE MOVED IN FORWARD DIRECTION If P05S1BLXSEM 170 

| f I T H i 5 L K-U-i E 0 *— I - T H I S t K-J — 0- — i ~ — X S EH-I-7 I- 

NAME ■ PROEmMJJ XSEH 172 

IF 1 THlSfcK — y — U1 23 Or? 1 * Dx^tO AS EH — 1-7-3“ 


C LINK J IS AFTER THIS LINK 
2 30 -CALL- -END STS ( name-»ndre WI- 
ST OP 


XSEH 179 
-XSSM-I-7&- 




C LINK J is BEFORE THIS LINK 


SAQ— <ALL-ENDST-S-«-N-AM£tREW |- 
STOP 


-XSEH— 1 7 6- 
XSEM 177 
-XSEH— 1-7 B- 


-£•**** 

C MODULE is IN THIS LINK 

t-P Ri NT “T I HE-MOODtE-BEO AN-eXECUT-ION-I F -FUNCTION At- MODULE- 

2&0-I F i T*TPECB-T8T-r-'2-rANB T -|N0Se-R-Hi— rNEi 
»ORDBf|> » IBLNK 

WORDB ( 2 >— * -inoscrtn > — — 

RORDB \i) - INOSCRIfi) 
yroRPB lNF-»--*0RDE1-li 


-ex i-t-i — go-*o-h»do- 


t X r f? A C T- DM A p-S E« y E MC E— N 0 M B E R- 

1 D I N aNDF HNOScR ( 8 liMASK T- 
00 2SJ t ■!,<) , 


-X 5 EH— 179 — 
XSEM 100 
-XSEH-iei— 
XSEM 182 
-X5EM— 1-83— 
XSEH 1 BN 
-XSEH — 185 — 
XSEH 186 
-XSEM-167— 

xsem lea 

-XSE+t— T69— 
XSEM 190 
-X 5 EM-1-91— 


l CHR *” lOlN-wilDl'NFlO) *1 0 — ♦+- 
L « NBPW-NBPC 


XSEM 192 
-XSEM — 1 93~ 


XSEM 199 

KOHDBH+— ORFHRSHlFTlWoROB-H-lTNBPeMTtSKI-f-T-tRSHH^-NUrtBfrt-tEHSH-rt+TXSEM— F9&- 
1 LI) XSEM 198 

-J Dl N-» -I D 1 N/ 1 0 — : XSEM — 197- 

| F ( JO 1 N .Ed. 0) GO TO 252 XSEN 198 

-XSEM— 1 99- 
XSEH ZOO 
-XSEM— 2 01— 
XSEH 202 
-XSEM— 203- 
XSEM 209 
-XSEM— 205- 
XSEN 208 

-Xsem — 2o?~ 

XSEN 208 
-XSEM— 209— 


2S1-C0NT1NUE 

2S2 CONTINUE 

CALL-SSWTCHI5-,IH- 


CALL CONMSG(W0RDB,9,L) 
CO TO-IQO0 


-E-R-R-O- R M -E-S-S A G-E- S- 


-MODULE RE1JUI REMENTS— EXCEED-aV A I bABl*E- FILES- 

280 1 NOSCR I 8 ) « ANDF(lN0SCR(81 , MASK J 

CALL- HESAGEF-l8,IN0SCfil8I',IN0SCR<8))--- — 

C XSEM 210 

C' UNEXPECTED- ALTERN AT&-RE TURN - T AK£N ~«HI LE- ATTEMPTING -TO -OPEN -pOQb— T APE •— XSEH— 2 1 1- 

270 continue xsem 212 


-s-rs- 
218 
-217- 
21 a 
-219- 
220 

-2-2-1 

222 

— 223 


C OSCAR FILE POSITIONED INCORRECTLY - HIT EOF, 

280 -CONTINUE • - - - 

C 

C-OSCAR RECORD TOO LArGE'FOR /OSCENT/— — - 
290 CONTINUE 

C LINK, SPECIFICATIONS INCORRECT FOR THIS NORUlE. 

■ 990 CALL HESAGE 1-8 I ,0,0 I 


-X-SEM — 2 1-3- 
X SEH 219 
-X SEM— 2 1 5- 
X SEN 216 
-XSEM -217- 
XSEM 218 
-XSEM— 2 1 9- 


XSEM 220 
XSEN-22? ■ 



224 


CoeeoeoooooeDGooeoaotoooaosooaoooaooeoooooeooooosooooooooeooeeogotiooeuo XSEM 222 
r FKPmrF Mnnm c ^ ^ »>SEM 2*.3 


C EXECUTE module 

-lOOO-I P <hODX-XiTs- — 35-)— GO— "u'-J 0 1 0 
1 ■ MODX - 2 

-TOy — 2003 

l , 9 40,200512006 1 2007, 2006,2009,2010.2011 , 2D 1 2 , 20 1 3 , 20 14 , 


'*1 940,-940)2018.2019; 940 ,-9403-940 1 Z023 r 

3, 2028,2029,2030, 940, 940,20331,1 

-10 1 6 — JF-1M0DX ,GT^50)— Q0-T0-1Q20 

1 “MDDX*4Q 

— GO“T 0 -< 2 0 4-1 

1, 940 


94or 


940 

940, -940.2027- 


-lf-940- 
1 , 940 
-1 T - 940 - 
1, 2046 
-940— 


1, 940. 
-1,-940 - 
1, 2050 

-H.I - 


1020 IFUOOX ,GT, 591 GO TO 103Q 
-j-w-MODX- 
GO T0( 2054 


-33- 


"l',— 2055- 
1, 94Q 

-1 . -2057- 
1, 2058 
-2059- 


-fr 

n ,1 

-1 030-1 F 1 MODX-.GT , — 70 1— GO-TO-l 040 
l«M0DX»63 

■ SO-TO' {2064 

1, 940 


— 1-, — 9 40 — 
1, 2o&7 

— 1 1 2068 ■ 

1, 2069 
-1,-2070 

u.l 


-1 040— IF-lMODX — — 10M— GO— fO— 1050- 
I >? HODX » 99 

-GO TO < 2100 

1 , 2101 

l»»* 

1050 IFthODX »6T, 1201 GO TO 940 

-1- *»-MODX— »*-M5 

GO TO) 2116 

■ 1 , 2117 - 

1, 2118 

ll- 940 * — 

1, 2120 

-!>,»- 

2003 CALL XCHX 
- GO TO' 10 - 


XSEM 224 
-Xs EM-22 5 
XSEM 226 

— XS Et!— 2-22 
XSEM 228 
-X-SEM— 229 
XSEM 230 


XSEM 
-465 EM- 
XSEH 
-XS£M- 


233 

-234 


235 
-23 6 
XSEM 237 
-X5£M“236 
XSEM 239 
-XS EM-2 40 
XSEM 241 
-XSEH-3-42- 


-XSEM-245 
XSEM 246 
-XSEM-247 
XSEM 248 
-XSEM— 249 


XSEM 250 
-XSEM— 25 1 
XSEM 252 
-XSEM-253 
XSEM 254 
-XSEM — 25E 
256 
-25 7- 

258 

259 

260 
2 6-1 
262 
263 


XSEM 

— XSEM- 
XSEH 

— XSEM 
XSEM 
— XSEH- 
XSEM 

— XSEM 



319 


2005 CALL XCEI 

-60- T0-tfr 

2006 CALL XCEI 

$0' TO 10 

2007 CALL XCEI 

-qtt-to-io 

2008 CALL XSAVE 

-so-to— 10 

2009 CALL XPURGE 

00 -TO -10 

2010 CALL XEQUIV 

-at>— to - lo 

2011 CALL XCEI 

-go-to-io 

2012 CALL XCEI 

-60- T0 -10 

2013 CALL DAOO 

-60—' f 0-1-0 

20 1 CALL DA0D5 

-60- TO -10 

20»8 CALL CTCT1 

-6 0" TO— 10 

2019 CALL CTCT2 

-GO— TO — 1 0 

2023 CALL DDCOMP 
— GO TO-10 

2027 CALL DUMQDl 

60 . T0 -|o 

2028 CALL DUHDQ2 

“G 0 — T 0 — 1-0 

2029 CALL DUM0D3 

-60- TO- 10 

2030 CALL DUMODH 

-GO-TO-IO 

2033 CALL OFBS 

30-T0-10 

2091 CALL GPCYC 

-60 TO- 10 

2016 CALL INPTT2 
SO TO 10- ■ — 
2050 CALL MATPRN 

-60— T 0—1 0 

20S*» CALL MERGE1 

-60 TO -IQ 

2065 CALL MODA 
1 — 60 -TO 10 


2057 CALL MODB 

-GO TO-10 

2058 CALL HODC 
Go TO-10 

2059 CALL 0«PYAO 

- *- GO TO 10 

20*9 CALL 0UTPT2 

-GO- TO 10 

2067 CALL QPARAM 
" ■ - 60 TO 10 


XSEH 26*1 
-XSEM-265- 
XSEH 266 
-XSEH-267- 
X5EH 268 
-raeir-ra-r- 
XSEM 270 
-X3EH-2TT- 
XSEH 272 
-XSEH-273- 
X5EH 27*1 

XSEH 276 
-X5EH-277- 
XSEH 278 
-XSEh-279- 
XSEH 280 
-X5EH— 2fli- 
XSEH 282 
-XSEM-283- 
XSEH 26*1 
-XSeM-285- 
XSEH 286 
-X-SeH-2fr7- 
X5EH 288 
-XSEH — 289- 
XSEH 290 
-XSEH-291- 
XSEH 292 
-X-5EH — 29-3- 
XSEM 291 
-X5EH-296- 
XSEH 296 
-X5EH-297- 
XSEH 298 
-X5eH-299- 
X5EM 300 
-X5EH-301- 


XSEH 302 
XSEH -303— 
XSEH 30*1 
XSEH— 305— 
XSEH 306 
■XSEH — 307 — 
XSEH 308 
-XSEH -309- 
X SEH 310 
■XSEH— 31 1— 


X'lEM 312 

y:.=M-3l3- 



336 

33^ 

330 

339 - 

340 

3 - 4 - 1 - 

342 
3 ‘fa- 

34 4 

3 - 45 - 

346 

34?- 

340 

34?- 

350 

351 - 

352 

35 - 3 - 

' 354 


2060 CALL PARANL 
— •" GO -TO— 1 0 — 1 — 

2069 CALL QPAfiMR 

— a o-T o-i 0 

2070 CALL PARTN1 

— <10-10 -10 

2100 call smpyad 

———60 TO -10 

2101 CALL SOLVE 

— " - 60- 70-10 

2116 CALL DTRANP 

60-7-0 — 10 

2117 CALL OUMERS 

60 -TO- 10 

2110 CALL DUPART 

— 60 -70-10 

2120 CALL KEC 

— 1 6U-T®— 1 B 

EN(J 


XSEH 314 
JtSEM — 3 ) 6- 
XSEH 316 
•XSEH— 3 17- 
XSfcM 318 
-X-SEH — 3-19- 
X SEN 320 
-XSEH— 32 L- 
XSE« 322 
-XSEH— 023- 
XSEH 324 
•X5E(1— iZB- 
X5EH 326 
■XSEH— 327r 
XSEH 328 
-XSEH— 329- 
XSEH 330 
-XSfrH-341- 
XSEH 332 


-»PR7-r5-OBJ«XBS0D 



B-8 


5CHHTZBlN2a9*oaJlo>.XBSBD 

-j C eLOCK-DATA-XBSBD 

2 BLOCK OATA 

-3 c ••*•**•♦•*♦*•«•**••*♦••*•• 

8 C LINK SPEC 


6 

6 

— »- 

10 

12 

-1-3“ 

18 

16 


T r 

10 


- 1 T- 

20 

- 21 - 

22 

- 23 “ 

2*1 

-25~ 

26 

28 

“2 9 — 
30 
- 31 - 
32 
-33- 


3*1 

- 3 &- 

36 

-37- 

38 

"3»- 

80 

-*tr- 

*12 

- 53 - 

-85- 

56 

-5-7- 
50 
“87 • 
SO 
-31' 
52 
- 53 - 


-000000 I o- 
00000020 


•••»«•••• p » * •*«••••*•«• *•••*•• »••»*,•-*»•« •♦fooooooao- 

I F I C A T I 0 N TABLE OQOPOQHO 

C-A-fc 1 NK-TAebt-ENTPr-C 0 NTAtNS-AN-EXE€U^ABbe“DHAP~lN 5 TRO€ 8 NON-NAB&TW 6 00000050 - 

C CORRESPONDING SUBROUTINE ENTRY POINT NAME AND MACHINE DEPENDENT 00000040 

-e -^INK-FLAG-WORDS, — — OOQOOQ70- 

c Each bit in the link flag specifies a link number, bit hright host) oooooobo 

-C— -fPE&lf 1E5— b-J NK— ONE-| — 8-|-T— 2— SPEC IF i E5— Irl NK — 2 r~ ETC, 00000090- 

C &IT ON SPECIFIES NODULE IS JN THAT LINK, p!T OFF MEANS IT IS NOT, 000()0|Q0 

-£— EXAMPLE - * — SUPPOSE — MODULE— X — IS — IN— b+NKS— 2 rfr~ AND-5-. — 14-S— L-l-NK — Fb A G*32<B-)-, OOOOO 44-0- 

OO000I20 

ooooo |- 3 o- 

00000180 

OOOOO 160 - 

• ,,•••••••900000)40 


c 

■c- 

C 

■ C-LtlNK -■ 

c, 


L-E-V~E-L- 

-length - or - link- table, - 

«•*♦* 


-1'N-K S-P-E-C T- A- B-L--E- 


C SET SENSE SWITCH ?B TO GENERATE ALL FORTRAN CODE BELOW. 


“C — LI NX’" SPEC", — TABLE—FOR“SUaROUT INE-XfrSBfr- 
0 l MENS I ON UNK 111881 

, 1 trfNK-1 (~1 H5 J 

It L I NK2 t 155) 


-000001-70- 

00000)80 

-00090190- 

100000200 


“I I'- 
ll 

-li- 

lt 

-tr - 

li 


-Ll NK3 1 — 1 M ) — 
LlNKR ( 1*)81 
-b JNKS I— 1-98)— 
LJNK6( 188) 
-fa-INKH— 1-H8)-- 
UNK81 136) 


COMMON/XLKSpC/'LL-INKiLINK 


EQUIVALENCE 

ll 
1 # 

It 


-!•»“ — 

DATA LL1NK/1 188/ 

— DATA— LINK I / 

I 8HCHKP , 8HNj 


(LI NK ( l) 
-(L‘) NK ( I 85 ) 
(LINK! 269) 
-IbINKt— 833)- 
(LINKI 577) 
-<LlNK<-721) 
(LINK! 665) 
-(LINK! 1009) 


58 

- 55 - 


-I t 8HREF T *8H — 
1,8HJUHP|5H 
-1 ,8HC0N0,8H - 
1 18HSAVE t 8H 
— 1|8HPURG,8HE- 
1 , 5HEQU l , 8H V 
- 1 1 8HENp 1 8H - 
I ,8HEX IT ♦ 8H 
■ IlHHADD ,8H - 
1 ,8HAD05,8H 

— 1‘| 8HBHG t8H — 
l,8HCASE,8H 
1 ,8HCEA0|8H 


8HXCHK 
— 8MXCEI 
8MXCEI 
-8HXCEI 
8HXSAV 
— 8HXPUR 
8HXEQU 
— 8HX CE I 
5HXCEI 
--8HDA0D 
8HDADD 
— 5HBMS- 
8HCASE 
-5HCEAD 


link i i i i i 

LINK2(1 n — 
L tNK3 { 1 ) I 

b 1NK81 1 H 

LINK5I I ) ) 

LINK61 l ) ) 

LINK7CU) 
LINKS (1-H- - 


5H 

8H 

8H 

8 H 

8HE 

8HGE 

5H I V 

5H 

9 H 

8 M ' - 
8 MS 

8H 

8H 

8H 


16383, 16383, 

— 16383 , 16303 , 

16383, 
-16383,— 

16382, 

— 16363 , 

16303 , 

-16303, 

16303, 





1 , HHC YCT » HH 1 

-i,HHevcT,'iH2- 

l.HHODR ,HH 
-i ,HHDDR1-,HH — 

1/ 

— CrA'T tr~ tri-N K-2V~ 
t hHODR 2,4H 
msHD£COvHH(1P 
J.HHOPp 1HH 


HHC YCT « HH l 
-HH6YCT|HH2 — 
HHpOR i HH 
~HHDOR i fHH 


RHD0R2 i HH 
-ijHDDCOiSHMP' 
HHpPD ,HH 


t flHCSMQjSHt HHpSMO , HH t T 

t , HHDSHG , HH2 , HHdSHG, HH2 , 

'1‘fHHOUMH » SHOD | — , HHPUROtHHOI 1 

1 .HHOUfiH, HH0D2 » HHOUMO,HHD2 , 
IVlPDllHHlHHODS— , HHdUHO-,'IHD-3 | 


1 i HUDUHH « HHODH 

~tfHHEHA-,RH 

i,HHEMG »HH 

-»-,HHFBS-tHM 

l ,HHFRHD,HH 

“I'l HHGK AD , HH 

l , HHGK AH , HH 

- l,HHGPt -tHH 

1 , HHGP2 * HH 

- t‘,HHGP3 — ,HH 

1 / 

“DATA tINK3/ — 
l HHGPh ,hh 

-l JHHGPCY * HHC 

t | HHGPSP « HH 


HHDUM0,HHDH » 

■HHEMA—jHH r 

HHEMG ,HH , 

-rhopbs rHH r 

HHFRRD.HH , 

HHGKAO ,HH r 

HHGKAM i HH i 

-HH6PI -iHH , 

HHGP2 ,HH t 


l HHGPh ,hh , HHGPH 

-l , RUG PC Y , HHC , — hhgpcy 

1 , HHGPSP. HH i HHGPSP 

-» ,"HHGPWG, HH 1 HHOPHQ 

l,HHJNPU,HHT i HHJNPU 
“1 ,HHlNPUfHHTTl~-, — HHjHpT 
1 » HH 1 NPU , HHTT2 , HHINPT 

"I |HHINPU»HHTT3— i HHINPT 

I »HH I NpU § HfiTTH » HHINPT 

~ItHHHATG,HHPR 1 HHHATG 

I tHHHATP *hhrn , HHHATP 

-1 » HHHATP ,HHRT 1 HHPRTl 

1,HHHCEUHH , HHHCEl 

-I ,HHMCE2 ,HH RHHCE2 

|,HHHERG»HHE i HHRERG 

-IrHHMOoA rHH- > HHHOqA 

1 ,hHHOOA, HHCC i hHHODA 


.HH 

i HHC 

.HH 



• HHT 
. HHT 1 “ 
. HHT2 
,HHT3~ 
.HhTH 
l HHPR — 
. HHRN 
,HHNT — 
.HH 

l HH 

. HHE | 

,HH 

,HHCC 


AH. 

6 «j »- 

129. 

-20H8r 


20H9 . 
— 6Hr- 
32. 

-R 0 9 A C~ 
0 . 

— aRy- 

&H» 

6 H 

AH. 

— 123,- 
123, 
6 H-r- 

512 . 

-S12|- 

512, 

2 

2 , 

Jr 


9 . 

AH »• 

9 . 

8 r 

2 , 

2 r 

AH, 

2 

2, 

i-2 8-,- 

AH , 

— 120 ,- 

e, 

8 , 

6H» 
AR 

20h8 , 


AH, 

" “ 6Ht 

128, 

' 2QH8-J- 


20H8, 

— 6HV 
32, 

-HOHAr 

a. 

6Hr 

AH, 

AH I- 

AH, 

— 120|- 
128, 

AH-r 

5 1 2 i 

— 5 1 2 r 

512, 

2 I- 

2 , 

2 r~ 


8 

AH 

8 

6 

2 

2 

AH 

2 


ah, 

6 HJ- 

120 , 

-2QH8r 


20H 3 , 

ART 

32. 
-RD96 r 
0 . 

ah , 

— ah r 

ah, 
— 1-2 a- r 

1 2 b , 

AHt- 

512, 
— 5i2r 
512, 


J .HHHODB.HH 1 - 

1/ 

... h i T A 1 I N K H / 

— hmmodb, 

HH 

* 1 “ 

ah,- - 

ah. 

ah,— 

^ A * H 1 lift Tf 

1 HHMODC.HH , 

4 -« 4 HHP VA« 4 H D . 

HHHODC, 

uUnup V . 

HH 

uu An 

* 

AH , 

AH, 

ah, 

1 i HHMTRX , HH 1 N , 

*tnynr 1 1 

hhhtrx , 

HH 1 N 

• 

512 , 

512 , 

-u*l J— • 

512 , 

l.HHOFp , HH 

--HHOFP , 

HH 

9 ‘ 

— 8192 ,-- 

- 0192 , 

0192 , 

1 , HHQU TP » HHUT . 

HHOUTP , 

HHT 

t 

0192 , 

8192 , 

8192 , 

1 ,HHUUTP,HHUTl- , 

-- HHOUTP , 

hhti 

9 

- 0192 , 

0192 , 

-- 0192 , 

1 . HHOUTP * HHUT 2 , 

HHOUTP, 

HHT 2 

9 

AH, 

AH, 

ah, 

1 ,HH 0 UTP.HHUT 3 -, — HHOUTP, 

HHT 3 

‘ 0“ 

6192 , - 

- 8192 ,- 

8192 , - 

1 .HHOUTP, RHUTH , 

HHOUTP, 

HHTH 

t 

6192 , 

0192 , 

8192 , 

l ,hhpa'ra,hhm , 

HNSPAR , 

HHAH 

9 

1 A 382 , 

1 A 382 , 

• l A 3 8 2 , 
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1 , HHPARA ' HHHU , HHPARA, HHML , 

~h,HHPARA-,HHKR — , HHDPAR,HHMR— 

1 ,HHPART,HHN I RHP ART ,HHNl , 

-l,RHPART»HHVEe— , RHSUBVjHHEE 

1 .HHPLAt ,RH , HHPLAl.HH , 


1|HHPUA3,RH , HHPLA3,RH , 

~l f^HPtA^iHH 1 — RHPt.A'tr'tH — r- 

1 / 

— DATA UNK5Y 

l rHPLQT.RH , rHDPLO.HHT , 

-t-rtbPi.-T-s-rRRe'T — r~ J +H 0 PL-T-r 4 H 3 T — r~ 
1 iHHPLTT , HHRAN . HHPLTT t NHRA , 

-iTHHPHTMlRHSG. , HHPRTMjHHSfl r~ 

l • HHPRTP , HHARM , HHPRTP, RHRH » 

ryHHRAND | HHOH , RHRANDj HHOM »~ 

1,MMRMG ,HH * HHRMG ,HH , 

-t-rtHRBHGr^m 1 — hhrbhgfihi r- 

1 » HHRBMG , HH2 , HHR8HG,HH2 , 

tTRHRD MG , RH3 ( HHRBMG JHH3 v 

l , HHRBMG » HHH , RHRBHG.HHH i 

-I-T^RKEADjSH f HHRElGj-HH 

t,HHSC£l,HH , RHSCE1.HH , 

-rr*tHS0R1-rHH , HHSDR1 r HH ~r~ 

l t HH5DR2 j HH i HHSOR2.RH * 

"i <HHSDR3,HH , HHSDR3 f HH— — r" 

l»HHSDRH»HHT i HH5DRH , HHT , 

-I-jHHSEEHjHHAT 1 HHSEEM jHHAT r~ 

1 / 

— B*T-A-b { 

1 HHSETV,HHAl. , HHSEYV ,HHAL , 

“1'i HK5H A 1 | HH , HHSHAljHH 

1,RHSMA2,HH , HHSMA2,HH , 

~l‘f HH5MA3,HN , HHSKA3 jHH ,~ 

l,HHSMpi,HH » HHSHP1,HH , 

-WHHSHP2,-HH HH5MP2 ,HH r~ 

1 jHHSMPY ,HHAD , HHSHp Y , HHAO , 
-1 ,hH 50UV,HHE , RHSObV i ‘♦HE 


I , HHSMP Y , HHAp , HHSHp Y , HHAO , 

1 ,hH 50UV,HHE , RHSOfcV | ‘♦HE 

l,HHSSGl,HH , HH5SG1.HH , 

1,HHSSG2,HH- , HHSSG2,HH r- 

t , HHSSG3 , HH , RHSSG3 ,HH , 

1 iRHSS6H-rSH , RHSSGH , HH 

t , HH5 SGH 1 HH T , HHSSGH i HHT i 

ItHHTAl ,HH , RHTA1 , <<H #- 

l iHHTABP jhHREP , HHTAOP.MHRE , 

— 1 »HHTABP,HHCH — , — HHT ABP , HHCH — *- 

l iHHTABP*HHRT , RHTAbF.HHHT i 

— i,hhsorx-*hh , rmsorx,hh 1- 

1/ 

■ — Data uink7/ - 

1 HHTABP ,HHT I HHT ABP , HHT . 

1|RHTIHE,HHTEST * — HHT 1 HT , HH5T ■ , 

l,HHT«D ,HH » HMTRD ,HH , 

1-,HHTRHT ,-HH , HHTRHT ,HH »- 

l,HHTRLG,HH , HHTRUG.HH , 

- 1 » HHTRNS | HHP i- HH[)TR A , HHNP 





128i 1 26 ( 12a, 128 

256 » 256, 254,- 256 

1Q2H, 102H > 102h> 102H 

-I02H, 102H, I02H, 1-02^ 

16, 16, 14, 16 

-• 6H> 6H , - 6H, 6H 



1 , AHUMER , AHGE , AHOUME,AHRG , 6A, 

-l.AHUPAR, AHTN — , AHDUPA»AKRT * 6 A »- 

llAHVDR ,AH « AHVDR ■ AH , 20A8, 

-HRHVEC- >AH v — AHVEC- ,AH » 6A, 

1 , AHX YPL , AHOT , RHXVPL , AHOT » 2, 

■IVtHXTpRVIHNPVN AHXYPR-rAHW j 3192* 

1 » AHX YTR f HHAN » AHXTTR.AHAN o B192, 

-I ,RHAPp-j4H ; — AHAPD AH »• }28, 

l,AHGl » AH ♦ RHGI ,AH , 120 , 

| | AHAMG -| AH , AHAMg ,AH 1 126' 

I'RHAHp *AH * AHAMP ,AH I 128, 

-4-w RHFA 1 — rAH d AHpA-1 — a A H g - — — 1 2 8 »- 


1 | RHAPp-J AH »-r-AHAPD~,AH » 

I'RHGI ,AH , RHGI ,AH » 

l,AHAMG-|AH , RHAMG ,AH , 

I'RHAHp *AH , AHAMP ,AH I 

- -h t HHF a 1— r AH „ RHP A l — , AH , 

1/ 

D ,VT A L1NK8/ 

1 RHFA2 |AH , AHFA2 .AH , 

I « AHOPTP , AHR 1 — — AHOPTP • AHR 1 — , 

1 , AHOPTP, AHR2 , AHOPTP, AHR2 , 

1-tAHoSC-H rAHK , AHdSGHj-AHK * 

l,HHCOHB|AHl , AHCOHS , AH1 , 

1 , aHCQMO (Ana — ■ — , rHCOMB , AH2 » 

1,AHEX10,AH , AHEXIO,AH , 

1-, AHRCOV ,AHR , AHRCOV ,AHR * 

1 ,AHRC0V*HHR3 , AHRCOV, AHR3 , 

1 , RHREpU ,AH€E , AHREOU rAHCE ( 

1,AHSGEN,AH , AHSGEH.AH • 

l-,AH50pl»AH , AHSOfl , AH , 

1 , AH SOfQ , AH , AHSOFO'AH , 

!•, RHSOpU j AHT , — -AHSOFU.AHT r 

l , AHSUaP 1 AHH 1 , AHSUaP , AHH 1 , 

1., rHPLT»*4HRG t AHP-LTH , AHRG 

1 , AHCUR V , 1H , AHCURV , 1H , 8192,81 

END 


128, 

A22A t 

A22A, 

126, 

25 A, 

256*- 

Z56, 

258, - 

256, 

256 ,- 

256, 

254, • 

256, 

256, 

256, 

256,- 

92,0192,8 




ooooiaeo 
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*CHHTZBIN20?*0BJ|Q) .UNK7 

* 1 MB-— OBs»,l.Ee*un f H5C*L-0C-AL-IB 

2 TtPE SETaFCM 

■ 3 s£s- HA IN — : 

9 IN YTRACE 

5 : — IN-FREAO , GOPENi S0EESPtF'BSA6X 

8 IN SEMDBO ,XSEKQ7 ,NTAB* ,NTRAN* 

7 IN-6NFIST 

6 IN UNPACK*»NTPK,BLDPKtPACK,»RTTRL,BlTP9S,ADDX,HPYAOX,FBSX,OCOHPX,COCMP¥,SFACT 

9 1 N— fHTOGO »6FBSX-r2BLPKX-, ZNTPKX»UNPAK X-, P ACKX-,OpNCOR — — 

10 IN C0RS2»DESCRP»XCEITB,ST1HE,STAPID ,tihe,xlink,seh 

— l-l Ity-RREAOX rf VPE»XHBM5R-iOCl.NT- | rG INOX-t-THO (NAMES rOUTPUlTrXVP-S-rXPF-IS-T 

12 IN XXFIAT.XPIST ,XFI ATtHSGX 

1 3 IN GlNOiXGlNOfSlNOiO-.fNAHEiPEXlT jSSWTCH jOtIU-|OPEN»CLOSE»REAO jPPOUHP 

1*1 IN MAPFNS ,MESAG£ 

1-5 lM'QWRlTX iFWDRECtWRI te 

18 IN REWIND 

n 1 N-aefcR£C ■ 

18 IN PAT X tPARMEG 

19 IN XDPL'.OSCENTjXNSTRN 

20 IN SYSTEM 

2 1 IN"CNO8flD»C0NPAD7C0NOAS 

22 SEG A 1 • 

tt T N-PAGE 

29 SEG TABPRT*,(A1> 

25 IN TABPRT jMATpUH jMATPRN 

tjj 26 SEG TABPRX«, ITABPRTJ 

27 1N-TABPRX 

28 SEG INPTT2*»IA1I 

*1 1 N-INPTT2" 

• 30 SEG INP2XX** CINPTT21 

-j I IN1NP2XX — — 

32 SEG 0UT2XX*,(A1) 

---33 JN 0UTPT2 

3*1 SEG 0XXXXX*|(0UT2XX) 

35 1N-0UT2XX * 

38 SEG HSG#RT*»(AU 

37 IN MS6WRT »USRHSG 

36 SEG ENDSYS«i<A1) 

39 IN-BTST8P»ENDSYS,3EARC-m 

*10 IN DEFCOK , PFCOR 

SEG -ENOSSS*rtENDSYS) 

92 IN ENOSSS 

93 SEG- GPARAMy » { A W — — ■ 

99 IN QPARAHiFNOPAR»QPARMR*PARAML 

HS SEG PARHLX*i (qPARAHl — 

98 IN PARMLX 

97 StG— XSAVE*<T-A1 ) — — 

98 IN XSAVE 

99 • - SEG SKPFIL*, (All - 

50 IN SKPFIL, EOF 

— 51 SEG SCEl»* (SKPFILJ- 

S2 IN XCE I 

S-3 -SEG XCHK*, (SKPFItl— -- 

59 IN XCHK,X£OT,RWUNLP 

5S SEG XSTA*, (SKPF1L1 - - 



IN XPOLCK»RPOABO # Xf*URGE 

IN-HSf A»XCbEAN»XPWNP-pS0P!iiR50SGN 

IN X5F A I 

SEG — ESFA®t1 XSFAJ 

IN ESF A 

S&<* - OMPY'frfr*TA-» 

iN DHPYAD.OMPYX 

seti~SOLV£*|Ai 

IN SOLVE 

s£a--ooconP» j-Ai 

IN DDCOHP 

SE-a-DFBSoTA t 

|N DFBS 

SE0-SMPYAO*TAl 

I& SMPYAD ' 

SEG-HATRX«»<OMPVADTSOt-ve-iDDCOMP-fOFBS-iSHPYAU) 

IN OHPY*hPyAD»MPYQ,FIbS*l jHPYADZ »S5«2B 

SEa-HPYAtfr*-r(MATRX1 

IN HPYA1D.MPYA20 

SEG-CYCT20j IMATRX > — 

IN CYCT2|CyCT2A>CYCT2fl 

SEG”CYCT2Xy » JCYCT2) 

IN CYCT2X i 5SGB2 

5ES-CYCTl't rlHATRXi 

IN CYCTJ ’ 

sea-cYcTtz*,<cYCTi-J 

in ever 1 2 

S6&-GPCYC* »HATRK 

IN GPCYC »BI SRCH 

1 N-PRELOC- 

S£G GPCYCX*,(GPCYC) 

IN-GPCYCX — — 

SEG SOLV2Xe,HATRX 

1 N-FBS .FBSSPiFBSDP 

SEG S0LVXX*itS0LV2X> 

IN-SOtV2X-»OFaS4-R 

St>G SOLVHX » (HATRX 

IN' SFBS 

SEG SOLXXXo , ( SOLVHX ) 

IN SOLVRX fD?BS2X 

SEG DAODA*,«ATRX 

IN-SADDX 

IN AOD.DAOOiSADO, DADD5 

SEG-OAOOAX*! idaodai 

IN HP YA3D »pADDA 

— 5|G-GENX<»ittATRX 

IN genvec>finoc ( tiheeq 

SE6-S0LV3X»i IGENXI 

IN ONETWO*TRANSP,DECOHP*DLOOP 

SEG S0LXXl»t(50LV3Xl — 

IN SOLVJX #P£CP2X 

SEG SOLVSX*, IGENXI - 

IN CXLOOP 

IN-C0MI2.CDC0HP rCTRNSP 

SEG SOLXX'2«,!SOLVSXI 
IN SOLV5X .OECP3X 




SEG SP5DC* , HATRX 

-in-rspsog rRSPtoo 

SEG DPSDC*,fUTRX 

HN~5DC0MP»LO0P 

SEG SOLVlX» t (SPSOCiOPSDC) 

-tN-Sflfcvi x-rpecpjx 

5EG CSPSDC* *HATRX 

“Ja-CSPSDCffSPLOO 1 

SpG S0LV6X* * tcSPSPR > 

-ia-SOUV6X*pECP‘tX 

SEG CXFBS*, HATRX 

-llt-CXPOS 

SEG SOLV7X*, JCXFBS) 

IN -SOtV7X»OF8S3X 

SEG PRTMRG* (HATRX 

-JM“PARTN2*f!ARTN3 

IN PRTMRG 

-SEG-r Altf J-*rWnfMR»+- ; 

IN PARTN1 

-SEG-PTMGZZ*, {PRTMRG I- 

IN HERGE1 

-SEG-PTMGZC-^rtPTHGZl-J 

IN PTMGZZ 

-S bG-D TRAN X'*tM'A"TR"X : 

IN TRNSPX 

- I N--TRRSP lOTRANP 

SEG DTRAXX*i IDTRANX) 

-IN- DTRANX 

SEG MRGPRT«#HATRX 

~I N' ' CAE CVi RUbgR 

SEG SDRBI*,<MRGPRT> 

-IN-0UMERGiMER6E|S0RIB 

SEG SORBlXf, (SORBIJ 

-IN-SDRB1 : 

SEG UPART»,<MRGPRT) 

-JN— OUPARTttWP AR-TiPART-ft; 

SEG UPARTX*, (UPArT) 

-IN UPARTX 

SEG VFCXXX*, HATRX 

-INVEC-- - 

SEG VECXXX*, < VFCXXXI 

— 1&— VECXXX 

SEG DUHODIftMATRX 

-IN DUMOD 1 

SEG DUHlXX«(<DUMODI I 

IN BUM 1 XX 

SEG 0UH0D2»»HATRX 

-IN -DUMOD 2 

SEG DUM2XX», IDUMOD?! 

-IN DUH2XX — 

SEG DUMOD3*»MATRX 

- IN OUMOD3 • 

SEG DUM3XX* , (DUMOD3) 

-IN -OUM3XX 

SEG DUMODR* ,MATRX 

- IN DUMQDR • 




166 
-165 
170 
-171- 
172 
-*W- 
17H 
-17 5- 
176 
-t 77 - 
170 


SgG OUHHXXo, t DUM0D4 > 

-jN-ourmx — - 


SfcG HODA»»HATRX 

— l H-hooa 

SE& MODXXX 
-l-N— MOBA-XX- 


SE6 H006o,MATRX 

-IN-H 0 D 8 

SEG HODC»iMATRX 

-IN-HOOC 

END 



-fcOCK»O0»Jfrt'*!NPTT2 — — — 

1 SUBROUTINE INPTT2 

2 C 


I NPT 
I NPT 

1 

2 


3 

c 

READ DA 

rA^LOOaSTTROff A FORTRAN UNIT. 


"INPT 

r 



c 



1 NPT 

9 


' 'S' 

c 


CALL TO Th rs MODULE 15 


I NPT 

5 


' 6 ' 

z 

>: i 

* 


INPT 

6 


vi> ■ 7 

c 

* 

INPUTT* 701,02, 03. 04, QS/V,N.P1/V,N,P2/V,N,P3 5 


1 NPT 

7 

v * * 

8 

c 


* 3 ’ « 


INPT . 

. e 

*A #t * 1 */* * * * . * . 

— 9 



P 1 «0 , NO ACTION TJk£n BEFORE RfeAO 


INPT 

9 


“ID- 

c . 


pT»+N* skip ForWaRO n oat* blocks before read 


INPT 

10 


11 

c ~ 


Pl»-Tt FORTRAN TAPE |5 REWOUND BEFORE READ 


INPT 

1 1 


12. 

, c 

1 . 

<• ../w'P 1 WO » THE NAME? OF ALL DATA BLOCKS ON FORTRAN 

TAPE 

INPT 

.12 


r 13 

r - J c 


• f’-', ARE PRINTED AND RE*D OCCURS AT. BE<» INNING 

OF 

INPT 

13 

s'?"'' \ « , 

1 4 

• c 

* * 

\ 7' •- ' TAPE 


INPT, 

19 


1 5 

c 


FT^5T~5EARch FORTRAN- WE F(5 r nR§T"VlRSToroF 

DATAINPT 

IS 


1 6 

~C “ 


bToCks REQUESTED, 


INPT 

u 


i7 

c 


if ANY are NOT Found, a fatal termination 

INPT 

17 



c . 

■* t ' ' % • ■ 

■; OCCURS, ■ 


INPT 

IB 

__ < 77- ,, ry 7 ": *- 

19 

c 

.*?.• * - i? 

« .^M***) .search fortran tape for final: version or 

DaTAINPT. 

19 

« , . I* , ( » 

20 

c 


, V“' v ' f ' blocks requested. 


INPT 

20 

.■ • ? ; • , 

21 

c 


If ANT ARE not Found, A FATAL TERMINATION 

INPT 

21 


• '22 

c ~ 


OCCURS, 


INPT 

22 


23 

c 


f* r --7 • SEARCH FORTRAN tape for PIrSTverSIdn of 

DATAINPT 

23 


T Z i| 

c 

' , 

~ — - nfr \ , block's recoeuted, : - 


INPT 

29 

' k *. ? J ^vj/« ‘ 1 ' f “ 

26 ’ 

c . 

It 

• "• IF ANY ARE NOT FqUnD, A WARNING’ OCCURS, 

* 

INPT 

26 

'■) ' Y-\ - vli.’i ‘ . . • 

28 

c 

/ 

P l »"8 1 search fortran Tape for final, version of 

DATAINPT 

26 

X '«*■ ^ x 

It 

c 


blocks requested* 


INPT 

27 


28 

c 


‘if-any’ are "Nor found - , warning occurs - , -- 


InpY 

28 


29 

c 


TNE” HPC - DEFiUL'f ' VALUE - F6f? pI IS "D - T " - 


i Npt 

"29 


4 ‘ 

c 


* , f . A ^ . 1 ’ 


INPT 

30 — 

v 

- - 31 

c 

* 

-• P2 is, THE FORTRAN UNIT, FROM WHICH THE. DATA BLOCKiSI 

INPT 

31 


32 

c 

: • 

••• WILL BE READ. 


INPT, 

32 

" > *?,*[ > ' u> ’ ' 

33 

C “ 


the RPC" DEFAULT' VALUE FoR P2T5 o , 


INPT 

33 


34 

c 




INPT 

39 


35 

c 


F3« TAPE ID CODE FDR FORTRAN TAPE - , AN ALPHANUMERIC 

1 N'P T 

3S 


* 3 6’' 

C 1 

t 



TnpT" 

34 _ - T 


v 37 

c 

‘ 

, • . VALUE ON THE FORTRAN . TAPE . 


INPT 

37 

,7 : -T'-Vll'- •'* - 

ja 

c 


i. .-THIS CHECK IS DEPENDENT ON THE. VALUE OF 


INPT, 

38 

7 ( J 4 «* ** W 

39 

c~ 


PTTS'TIS CLOWS';. 


INPT 

3 V 


MO 

■ ~c~~ 


"*Pl» " - •TAPE' IDTHECKED* ” “ 


INPT 

40 - 


M 1 

c 


TN - " NO ' ' — ' 


'INPT 

91 - 


r? 92 

_C 


" . -• a : nd^ ~ - 

v 

TNPr - 

792 

f 1" fj.J « » • v - 

>■ ■ 43 

c 


• -1 . YES 


INPT 

93 

» * * A* i\‘ »*> 

99 

c 


• -3 i yes (Warning check) 

INPT 

99 


' MS 

■'C* “ 


-b TtS 


"INPT 

“95 


M6 

c 


"6 _ | TE5 . 


'INPT 

"94 ‘ 


M7 

c ““ 


-7 i — YES 


iNpr 

97“ 


* M 8 

C ~ 


=B - TE5 


"INPT 

9B 

* , ^ 

99 

c 


THE HPL DEFAULT VALUE FOR P3 IS XXXXXXXX . 


INPT 

99 

‘ \ 

SO 

c 




INPT 

SO 

l ' - 

5 1 

~C ' 

INTEGER' 



'INPT" 

b 3 




- ” TRC(7)iCORSZiOUBUFiNAKEI2| .N0NCI2I iSUBNAH(Z) 


INPT" 

5Z~ 




I NT E CiE^ 

OUT ( 5 ) iOUTPUT iP I .ZERO iNAMEX ( 2f ;p2‘ “ 


INPT 

5 3 


r 59 


"INTEGER" 

P 3". IDHDR r7Tn OHDRX ( 71 .P3XT2TTNT ( 5 , - 3 1 .DXT3T 

INF7 

54' 


55 


INTEGER 

T APCOO t 2 ) 


INPT 

55 

. 

5 6 

c 

INTEGER 

endrec.enofil 


INPT 

b 6 

■ * 


Aimn® uo&d j© 


w 


-J 


' 9 f ' 

, ‘ so. 

c , 

, <• . 

Ti w • &GtST'nfcT', .>, W'V' — • — ; - — rT r ""’ — a :"% “ ' — '. • 

*»* i ’ * y *** ' V > ( ' , ' • , \ ' ' 

COMMON ’ t • .' / Pi jP2 >P3 1 2 1 . . • ' •c*\. 

1 r-v^' i'.' j hir i 57 

INPT ' 68 
INPT 59 

w* '*/ ’ ' 4 v 

j \ 

$U 


“T< 7SY5TTH7 NBlNOUTT^UNfaS'j'TNtPP 

lNP7~~6tr 


6 1 


* 7 IfiPzXX/ x!2f "" " " 

INPT 6'1 


£2 

c 


- INPT’ “62" 


V „ 6 J ^ i ' 
?-6H, 

\ -’as" 

V* 

* ' > 

DATA ODT/201 ,202 j203 IzOR *2057 » 1 ^ plf » **HT2 ' . , , 
DATA ZERO, HONE, HTWO, MTRE iNFOR/0 i- 1 j-ii-3,-7/ ‘ ■ " v - 

' •- InpT 63 J 

INPT 67 
.INPT 65 

" ■ . 

6& 

.... , 

i HFrV,HSTX',RETE7 -57=6, -87 

1 NPT 66 



67 B A T A“I D H B R7Tf HN * 5 T7 1 H R A'N~”. M HF o R T". 9 H ~ T AF7 «{hE I BT9 ITt 6 j> « 9 H E ~-”7 1 fjp f'i 7 

68 DATA~XNUEE"? < fHNUirL‘7 877qS<5Ci 


^ ' ' 6V . Y, 

' - 70 
71 ' 

;• — ~~ 7~ .. =" ‘ ■ • v 

C ' • -i'l •* • . . . . 

~TTiFT7 7- JB~ 
INPT 69 
INPT 70 

'■ ' '*n ,V ^ J>* V 

- 5 ‘ 
' ♦. \ V * 

72 


INPT 7 1~* 



LC0R«C0RSZ(Pl |X") " NB " ' — " “ ' 

INPT "72 


7** 

1 F (LCOR.LE.o! CALL MESAgE 1 -8 ,LCOR .SUS’NAm 1 

i NPT 73 


7b 

76 

77 

^UBursrcBRfi ' t - ’ -7 . 

TAPC0D1 1 | b P3| 1 | ’ • 

TAPC0D12) - P312J 

INPT 77 
INPT 75 
INPT 76 

a 1 # - 

' I**/'' ' i( ( * > >* 

'' * i‘*« i 

7B 

1N"P2 

INPT 77 


79 

I F t P I'.LTTME TE VOR.~P l « EQoMTWo '.DR. 'FT, EQTHFOR ) 50 TO 9908 

INPT 78 


8D 


INPT “79 


8 1 
82 

. 83 

ITIPl »LT7H?oR} GO T0~5000 ’’ rT ■> 

IF1P1.E0.MTRE) GO TO 2000 
IFlPl.LE.ZSRO) 60 TO 170 . - * 

INPT ?o 
INPT 8 1 
INPT 82 

, * ‘ " ij . - ' 
* >-*' 


c 

“INPT 83“ 


65 

1 ** t 

INPT 8*1 


8 6 

110" CONT I NUE 

"|NPr""85“ 


a / 
08 
ay 

■0000 FDRHATIZ2X51 . - 

REAO( 1N.8000), KEY 

K£YX«2 ‘ 1 ’ 

INPT 

INPT 87 

, s* j;v 

VU 

IF (KET, NE .xiyjn 5ff“T0 “99 l 8 " 

INPT 88 


91 

READ} jN ,80607 NAmeX " " “ 

INPT 

89 

92 

READ! IN.SOOOr KEY 

' INPT 

90 

7 J 

94 

95 

I F 1 KE Y^5E .01 6T5“TO 99T9 • ~ 

ASSIGN 120 TO RET 

NSKIP-1 % ■ ■ . 

TRpt — yr~ 

INPT 92 
INPT 93 


V 6 

GO TO 5000 

~1 NPT 9H 


97 

120 CONTINUE ... - .. . . 

InpT 95" 


96 

I *1 + 1 " ’ 

"INPT “76“ 


VY t 
100 

I F ( J ♦ LE »P 1 ) GO TO I J U 
GO TO 195 

INPT 97 
INPT. 98 



tOI 

102 

103- 

1 DM 

“ — tos — 
106 
107 

1 0 8 ” 

■" “ 10 ? 
■•110 


c_ • . 

c OPEN' FORTRAN TAPE" TO READ WI THOUT" REWIND. 

1 VO - CONT | NUE — 

IF(PJ .NE.M0NE1 GO TO |?5 
REWIND IN 

- READ ( I N i 8000 I “KEy 

- K E Y X a 3 " • ' .... 

IFIKEY.NEoKEYX) GO TO 7918 


I NPT 77 

I NPT" 'I 00 

INPT JOI 

!NPr IOZ" 1 

1NPT“|03 r ~ 

1 NPT 107 
INPT 105 

I NPf 106 

' INPT 107 

" INPT IDS 


112 

113 


READ { J N , SOOOT" DX ' 
RE AD ( I N i 8000 ) KEY 
KEY.X-7 


INPT fo? 

sNPl HO 
INP1 111 



-18 


n HI 

•\ . I is 
114 

• 

-ir 1 -ke y rNrsKrrrr-t»o-To-v? 1 6 — t- 

REAOI IN»8o'o01 |£>Hl>RX ' >•' 

DO 192 KF*1*7 . . . 

TNPT”1 T2~ 

1NPT 

JNPT US 

1*3 

: ' : ■ . •’ 

117' 


IfTl IdhoRSTikf ) «n£7IOTPr ( kF”) ) sinOTVia 

INPT 115 



1 IS " 

1 92 

cOnTJ nUE " 

INPT 116 



119 


READ) iNUOfitSl kTf 

iNPf 

117 


v ■ 12 u ■ 


kevX'-2 - . 

inpt lie 


* */’'* / •' 

i 2 1 


IF(KEY.NE.KEYX) GO .TO 991B , * V 

INPT- 119 

* 

1 +tt ; >' 
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READ) 1 N *8000 1 P3X ' ‘ 

INPT 

lab v 

\ ' 1 V - , . 
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READ) I Nfi BUOoT'TT? 

inpt 

in 


121 


IFlkEY.GE.Ol GO fO 9VT 9 

INPT 122 



1ZS 


fOR# P3)(l 2) i CIO TO ^910 

INPT 123 



126 


ASSIGN 193 TO h£T~ ! ^~ ! " 

1 NPT~1 2S 


\v ' ' ' 

127 


NSKIP-1 -• ’ .* 

INPT T26 


‘ a # 

126 


GO TO 5000 ‘ft’ . , 

INPT 12* 


11 *’ , 

12V 

l 93C0NT ! NUE 

INPT 127 



l 3 u 

C 


Inpt ha 



131 

1 95 

do 1000 r»irs ”■ - ■ 

inpT 129 



1 3<i 

C, 

'>■' >% " ' T "' ■ S' , ' 111 r ~"'“ 1 • „ ■ ■ ""■"" * ", ' "* '■ 

INPT 130 

• - »' 

V * l.'y. sir *» , 4 * ' 

133 


OUTPUT-DUTtll < , 

tNPT 131 

* 

* *' is' 

■ US 


CALL FNAM£|0UTPUT,NAHE| 

INPT 132 


, - v> ' « 

l 35 


[EINahEI 1 I.eO.nOnEU > iaNd. NA'REr2T7Eo,N6NE'jTTT~5o - lo ioo'o 

INPT 133 



13 6 

. - c . 


INPT 13S 



1 37 

c 

PTrSSTTCE RAHrHETniER Re CORD." * ' 

FNPT US 



T* 1 3"0 

c 

iv " ■ ■■ k ' 1 ' 

INPT 136 

- 1 ' * 


139 


RBAO( tN*80ao) KEY 

INPT 

137 

1 , 1 v - * \ / { s 

' 4 » ,. , * 1 . 

no 


KE YX«2 * ' ’ 

INPT 138 


.* .* .. 

ts r 


IF 1 KEY .TTETTcETSO G5~T0~VfT5 

INPT 139 



l 42' 


READ 1 1 N , 80ao 5 NAHEX~ “ ~ — ' 

INPT 

no 


1 H 3 


~READ[ [(TiaOOOr"KEY " 

INPT 

hi 


TT”'m • 


tftkey.ge.oi gq.,to;'99T9 “ ^ ; " 

INPT H2 

< .. 


us 

c 

. > ‘ ► > 

' INPT 1 S3 



M4 

c 

READ TRAILER RECORO. ’ 

INPT IMS 



H? 

t 


IWIss 



1 HB 


READ (INI flOOtJ I KEY 

Inpt 

116 


1 19 


KE YX* 7 

INPT 1S7 



* 7 ? iso ■ 

■ 

1 F rKEYTNE.KEYXJ' WTOTITB ~ ” ~ • • 

TTTPTTTIl 



r ■ i5i. 


READ! IN, 6000) ’ TRL . ' 

' INPT 

U 9' 

,y,~j *Ik‘ v 

‘52 , 


RE AO ( IN. 8000 1 KEY ’ 

JNPT. 

150 

'» f* %Y V -'r 1 ... 

1 53 


U b (o 

INPT 1 5 i 



1 5S 

c 


InPT~1 5'2 



t 55 

c 

0PEN“00TPUT OAT)rBCOCIC"TO''«RITE WITH REWIND, 

"INPT 153 



T • 1 56 , 

c 


INPT IS 1 ! 

' " 


157 

c 

CALL 0PENU9902, OUTPUT, XlOUBUF) ,1 1 

INPT 155 



1 SB 


CALL OPENI 19902,OUTPUT,X10UBUF) ,1 ) 

INPT 156 


. S 

[59 

' '£ "" 


INPT 157 



1 6U 

c 

CO'prCONTENTS' OF FORTRAN" TAPE' oNTO' OUtpuT ' 

INPT 158 



161 

• c 

~ ' DATA BLOCK. “ ' 

INPT 159 



162 

~ c 


INPT Uo 



163 

c 


9/7S-NUK 


. 1 

1 6S 

c 

NEXT 5 CAROS WERE REROVED TO ALLOW HEaOER-RECORO OF WORE THAN 

9/7S-NUK 



J 65 

c 

TWO WORDS TEXAMPCESr. i~ 'USETiPPTJ ' 

'977S5NUK' 



166 

c 


97 75»NUK " 



167 

C " 

KEYX-2 ' ~ - 

“9775-NUK 



16 6 

c 

READ ]IR|BoOU) KEY 

“9775^ 

■RBk 


169 

c 

IF 1KEY.NE.KETX) GO TO 991B 

V/75-NUK 



170 

c 

READ IJN, 8000) ( X ( L ) .L*> 1 » 2 ) 

9/75- 

nuk 




c— — e a 1 l— w fH-r-e— ta tft p a h et< to-t 

. i 72 : ■ NOLLCK-Q ; '«,!> ■ . ■ 

1 in' l ■ c 'S< ' ■ 

— m zoorctiNTTNUE : 

— l7 s readi iNveootrrREY 

— 17 & l fi I KEY 1750" 1 30 BT2 10 

-rrjTT 'TT — ZTTT~CB HTTfTOE' .• : ""f — : 

... I 7« ‘ . ' IFIKEY.GT.LCOR) GO - TO 9917 

179 READ l ] N ■ 8000 I ,(K(L)*t*l»KEYl 

■“1 ea rF'?-XT217EffTXmnXT~E0- T0~-2RB- 


r? 77 SwfJU 


'4 v {* it r- S.O , ft! » . 

8 / 7 V 6 C. ■ v-r^^c^ 1 v/. • . 

INPT 166 ■ VV./;.SkV. .A 

—r its; r — — 1 * — » —». . .. . ■ — — 


tNPfiiy 

_I I iiRf*f_'r£iB 

jNPf 169 

iWTTfS 

V l HPT 171 . 1 V, 
INPf Iti 


v J >/ V*V' 


— 181 

CA'LL'lilRITEnOUTPOT pX.KEYTOT 


fNPf 173 



~ 182 
“ — I 63 

“50' TO" "200 

2Tfrr^mirrrir*T — ^ ; — : 7 >~ ,J 


INPT 17*4 

wyvifszr? - 


* 


* ' 189 
185 

— lB 6 r- 

16 7- 

I 8 B — 
T 8 9 ~ 
190 


50 TO 260 /< •’ . 

c ■ 

2S'tT“C0N T I NUE 

1 F ( NUE‘LCK .‘NE'.'lT‘QO-T0"Z6TI'" 

NULUCKiO 

50 " T 0 “ 2 BD^T^' ' 

260 CONTINUE ■ ; *■* - ' 


877*t»GC« 
JNPT 17S 

fKpfTyr 

“H 77 <(= 6 Cr 

T/ H^Gcr 

. 0/71-GC. 

, fl/7S»6C« 


■ v ■ - ;W- ! - 1 
■v 


,* y .v-u., A V' 

v ! * 


191 


CALL Wfi|TE<OUTput.X,0,I 1 

INPT 1 

177 . 

T9 2 


~5(J ' TO~20D 

INPT j 


I 93 ~ 

— C" 


JNPT ] 

179 

19^ 

roc ~'r"- 

- ~c ” 

■ ' — CCOSE*' OUTPUT tJATA-SUOCK'WlTfrRENlND-'ANO' EOpr ~ 

INPT'I 

130" 


300 CALL GLOSEIOUTPUT»I 1 

•~ : "" L ~gRTT r~TR ATLES r~~^ ~~~~~ 

irk h«output 

C ALL‘”BRTT KJTTTmn 

HR I T E I NOUT i HOO I NAME , 1 N ,NAHEX 
BOO FORMAT ( 35HQ**« USER INFORMATION MESSAGE BIOS* ' 

— ' ,'l TH0A T1T1J LHT:K~72'R H 729H _ ReTR 1 1 V E6 * F RoS F3ff TRAlTT/TPr"', \TT~ 

•" 52H'NAKE~Cr"DATA' BLOCK'WHEN PLACED’ ON'FORTRAN TAPE WAS" 

— » “zab; irzt ' — 


1000 continue 


-return 


— CCOSE - roRTR AN -TAPE~^ITNOUr - REWIND«" 


OBTAIN LIST OF DATA BLOCKS ON FORTRAN TAPE. 


2000 'CONTINUE 

' REWIND IN ' ‘ “ 

•- • READ UN, 80001 KEY 

KEYX-3 

lEtKEY.NE.KEYX) GO TO 9918 
READ ( |N . 8000 1 OX 

READ t IN .8Q00J"KEV “ " "" 

KEYX-7 " " - 

IF (KEY.NEiKEYX) GO TO 9918 

•" READ ( I N , 800o I" IDHDRX ' ' ' ~ ' 

DO 2005 KF- 1,7 

if r tn'tmwY irr I .nf. tmtnpiKF 1 1 r.O TO 9i|i 


- INPT 182 >- 

1 NPT 1 B 3 , 

iNPt las 
JNPf'iSS 

INPT" 136 

-~rwpf~f 6 ? — “ 7 “ 

JNPT. |88 
INPT 189 
INPT 190 

“I NPT' 191 

JNPT' 192 

~iNprT 95 

INPT 199 
INPT 1 95 

“INPT" 196“""“ 

— INPT" 1 97 ": — 

— INPT' 1 98 

7N PV1 V9 : 
INPT 200 
JNPT 201 

—INPT' 202 

" INPT 203 

• - -• INPT" 209'“ 

~“1 Mr 2 OS 

INPT 206 

INPT 207 
" INPf 208" 

INPT 209 

INPT 2 j 0 ' ' - 

" ' INPT 2j j " 
INPT 2 12 
I HPT ? I J 



— * 26 2005— CONT I NU£- — r— ^ — - : r— 

229 REAOi JN.flOOO) KEY ’ , I 

230 KEYX«2 

— TNPT--2J9- 
INPT 

INPT 216 

215 


23 J 

IF t KEY •NETKtYX) GOTO 9911 

— INPT - 217 



232 

READ f i N , sobol F3x 

INPT 

2 J8 


233 

R £ A 0 f 1 N t 8 0 0 0 1 KEr 

INPT 

249 


i3T~ 

235 

7 V .236 

IRKey.Se.O) GO fo .’TT’T 

IRIP3XI 1 ) .NE.P31 1 1 .OR. P3X ( 2 ! « NE<P3 ( 2 1 1 GO TO 9?H 
< 2006 CONTINUE . ... 

* INPT 220 
INPT 221 
INPT 222 

*' A 

t ■ 

■ vr - 

j 7, 1 ' . ■ 

237 

ASSIGN 2008 

INPT 223 



235 

N9KlP»i ~ 

INPT 229 



239 

(SO TO SOOO 

INPT 225 



T-JrifU 

29J 

292 

ri'. ■ 2008 CONTINUE . «;■' ■ v; ':■“ J 

KF«0 

2007 C4LU' PAGE 1 ■’* 

INFTT26 
■ INPT. 227 
' INPT 228 


\ / UT * V ~ - rrr 
- • 

29T~ 

WNTTE (NO'iif ,20101 IN 

INPT 229 



299 

2010 FORMAT UHO,50X,H,19Ji F1UE cONTERT5?94x , 9HFICE * fix , 9HNAHE/ IHO t 

6/7 9»GC • 



2 *4 S 

2020 CONTINUE 

INPT 231 



2T5“ 
* 297 
298 

REXlTl J N ,8000 ) ■ XtY \,f ~ ; 

1 F {KEY «£Q .0 ) fi0'T0'2O55 ' . ‘ ■ 

C ’ K£YX»2 - 

■' ■ INPT 

. INPt 233 
INPT 239 

23?' , 

,4, * {•*<»' ' ’ ' ' V\ 

299 

C inKEY.NE7KETXTT0'*T0 _ 99IB 

INPT. 235 



250 

REAOI IN, 8000! NAHEX 

INPT 

216 


251 

C HEAD! iN~,aao5F - KE'y 

INPT 

237 


' 252 
253 
. 259 

~7 * fFTRE Y.GE.O) Co TO. 9919 ■* • f ' - ” ' 

> A8SIGN 2026 TO RET-. •) , /•' ' ' 

' NstciP-i -v - ; A ' - V- 

■‘*4 INPT 238 
INPT' 239 
INPT 290 

% ~ 

,y. v • : > - 

& ’ ■■ ' 

255 

SO TO 503G ~ ““ 1 

INPT 291 



Z 56 

2025"'C0NTINUE" ' 1 "" 

I NPf 292 



Z57 

KF**KF + 1 

INPT 293 



. • Z5B 
' 25? • 

*• 260 

“HRTTE'TR'O'Ut, 20301 KF.NAhEX ; 7 - - 7?** 7""' “ 

2030 FORMAT t*f5X, iSi 18 X, 2A9J 

IFIMOD(KF,NLPP|j 12020,2007,2020. ' ’ •’ 

TTIn’pT 299 

, INPT 295 • 
INPT. 296 

O c 

• 7 ’,y. 

26! 

205IT'C0NT'1NUE 

INPT 297 



Z6Z “ 

' REWIND IN 

I NPf ”29 8 



26 J 

A55t(iN 2USS tO REt 

INPT 299 



■ 26S 
266 

• • NSKiF**! . ■ ;;*■ *• < : ,v , 

60 TO 5000 MltiX - " * >s ; : ' ' 

2055 CONTINUE. , 

INPT 250 
INpT 25 1 ■ 
, INPT. 252 

, * v, ,< 

■ -r- - 

.« • * A \* . k » * 
h t ’ ' # * s 


w 

I 

rsj 

o 



IF (Name « 1 J.EQ.NONEUI .and, NAMEl2l«EQ,N0NE|2| I 60 to C020 
NT 1 1 , | ) »D 


INPT'"25? 

I NPT' '240" 
INPT' 26T 
I'NPT _ 2«Z" 
INPT 243 
| NPT 269 
TNPT"’245 - 
InPT'244" 
INPT "247" 
INPT”2SB _ 
INPT 26? 
INPT 270 
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r iay . '' 


— zaer 

2 B ?“ 

290' 
TTZTT 
f'292 
r.29j 
— 29T 
— 295" 
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nr rr 

i. 298 
•' 299 
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rN T tnTii - " F* K HE’i'Ci i 1 . v;,; ^ 
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•; 
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- v!i - NNT«NNT+I. '} V 


■PW.Z\ 
■c-'n', ‘ 




- 50 ~TO~ 3 TJ 5 tr 

"3020" NT I I rn 35 T 


NT{ j-- 2 )5N0Nrm 

17.. 1 ■ ■ ; N r rT 73 TSfTOR£TZ'| ' - • "-‘7p7i 

30SO' CONTINUE . ‘ rfn j» 1 '7, ■ ‘ ' I'V' '■* "•< 

C 1 ' • " • • ' • ' : ' 


TW PT"2 7 ; « vy “ Y c ^>*i; \ »•. • " • " 

INPT 273 / V • 'JU'i’ACv-.' ■. ',s, 

*INp? 2 70 ‘ 

"iNPf'ZTS 

"INPT""27i — 


"■* * t t, 


"I FTRfnTfrrruncrTU - 307IT 

■wRjTETNourraoYoi — 


■ • ; , - INPT 270 \kAMp£ !Vk'- 

’■■■■ ■ •; ■< I NPT 279 -#l» • ? A 1 ) 




-3060“F0RHATI3rH0S-o-o-uSER“WftRNINB‘"HESSAGE~ , ff37T' 

r— — 


INPr 28IT 
1NPT'28T 
”!NPT"282" 


RETURN 


TT8H7 


,,, fTOT 
r .'.t. • (. 

1 «?*.’ j , 


~£Hrc nr* p r " rro sect* 


INPT 280 
INPT 285 

iNPT~20r 




’ * .. i«»v7 J/ft «*« 

•TT, *<» t ** * sp * « 


w 

l 

ro 


30 l 

c " 

INPT 287 " ' " 

302 

“3070'"tQNTl HUE" " "" 

TNPT" 288 ‘ ' 

~ 3X13 
V\ 300 
30S 

~ REwrNinN '•■,{ * 1 : = t : : n : 

RE ADI |N*B006)''KEr ‘ ■' 

4 KEYX-3 

• - : ,v INPT 289, r ' ''•.ix'.sX't'iy- ; ■■ » 

- j NPT, 29 0 WvvsS\ 

. • INPT 291 . c ( . - . 

3DS 

1 F f KE?’iNE7KETXT~STrTTm?X8 

INPT 292 

307 

A D 1 l N • 8 000 J DX 

INPT 293 

308 

READ! IN, 80001 KEY 

INPT 290 

— ~30'9 
,310 
"'311 

~ — " K £ Y XTT 7 7 ? > ? 

1F( KEY*NE *KEYX | GO TO 9?10 '• / '* ’■ 

READ! IN, 8000) JDHDRX . ' r ^ 

•• ’ . INPT 295, ' •''> 1 ' 

>npt 296,- ■ 

inpt '%'H ■ 

312 

DO '308D"KF»1 ,7 

INpT - 298 

313 

' ~ _ IFF I DHDRX I KF I'VNEVIOHDR l KF n"5IT"T0''9 91 J" ~ " 

“INPT "299 

r 3H 

3000 CONTI MUE 

INPT 300 

315 

316 

- 317 - 

V 7 R E A D T I N 1 8 DO 0 T" FEY : " 7 7 “■ 

•' KErX«2 ‘ 

. • IF [ KE T ,NE «KEYX J GO TO 9910 . . *, ‘ " . 

Inpt 301,' -'i- 1 

' inpt 302 

_\V'V,;|NPT. 303 , -r , 

31s 

READ ( iN.BOoo) P JR " ‘ “ " 

INPT 300 

” ’ 3 1 9 ““ 

" READ ( IN', 8000) KE"Y ' 

INPT JUS 

320" 

I F ( KE Y i GE • 0 1 GO TO V9J9 

IRPT 304 

321 

322 

323 

***** — 1 n 

IFrP3xn'rTNE7P3TTT~T'0R, P32T2TTNETT’3'ta ) 1 "GO TTTV9T0 
.• ASSIGN 3065 TO RET 

NSKlP«r -A,;. ,, , 

. JfjPT-307- -V ': df.‘. 5 

' ■■ , INPT 306 • ■■vt'7 ;v ; 

INPT 309 ' < '■ 



30B5' CDNT JNUE" 


BEGIN SEARCH OF tAPEo 


KF«0" — 

31 10" CONTINUE' 

READ I IN 1 8000} "KEY — 

1 P ( K E 97 E07 0 f“55 - nr'3 500 

KEYX-2 

IF (KEY.NE.KETX ) GO TO 9918 
REA0{ fN(8000r"'NfiHEX ’ 

READI IN, 8000) KEY 

IFIKEY.GEiOf "G0'T0"99I9 
KF-KF5I * 

DO 3200 i«l ,5 


iNpf ' 3 ri ” 

" I NPT 3 1 2 
"1 NPT 3 13" 
INPT 310 
INPT 315 

“inpy-ju - 

INPT 317' 


I NPT~3|'8“ 


INPT 3 1 9 
INPT 320 
INPT 321 

inpt isr 

lNPT~3Jj' 

INPT' 320' 

INPT' 325" 

INPT 326 
INPT 327 



, 392 

NAHEfl T-NTHT? F^T; ~ ’ . 

INPT 3 ZB 

*, * / 



393 • 

NINE t 2 ) “NT 1 1 » 3 I • ; 

INPT 329 

5 \*s- 



399 

IF ( NT ( I 1 1 ) *LT « 0 t CO TO 3200 

* INPT. 330 




395 ““ 

fF(NAHE( n.NE.NAKESrn I «< 5 R, NAHE 7 2 ) .NE » NAMEX | 2 I | CO TO 3200 

INPT 331 




— 396 

Ntii.ii *ht rr* 

INPT 332 






“ 397 " 


“39 FT” 
, 399 •: . 

■ 350 ■ 

^RfilTEjNSU f *31901- WriEV K F 

3190 F0RHATI31H0*** USER WARNING MESSAGE 9»38, 
* SXillHOATA BLOCK. »2A9,2lH IOATA BLOCK 

INPT. 339 
. INPT 335 

COUNT * ,15, INPT 334 

, t.v ,S»v>v **.. >- 

3ST 

• 5 j M 1 HaFTSEVIOUSLT BEEN retrieved 

from Fortran tape . 12 , inpt 337 


352“ 

1 2 Iiri Nb'“WTLL BIT IGNORED, i " 

INPT 338 


353 

60' TO ”3205 

i NPt 339 


' — 3ST ~* — 
" 355 

356 

• 3IB0 ‘CONTINUE; - 

RE ADI |N • 800Q) 'KEY 'Iv' , ' 

KEYX-7 ‘ 

~ : F7NP : rS s IO 

INPT 

INPT 392 

391 „ - . 

- ' . :y/) • _ . ■ 

357 

I F TK E Y ; N E7 K EYTO"ff trT0"99 1 8" 

INPT - 395“ 


358’ 

READ ( IN', BOoaT'TRL " 

INPT 

399 


-T- 3 -fQ 

. 361 
- 362 

363" 

36*T 

3 65” 


rnKE¥7^iTi3T _ 5o T "fo"ir , ?r9 — 
ourpuT-ounn 

CALL OPEN)s9902,OUTPUT»XtOUBuF),l I 

~c all ■ n p en r * 9 wi TWTFvrjxrovaurrrrr 
"NULLcK-0 


INPT 396 
INPT 397 
INPT 396 


1 ' 'X * " 

' ' ►* , < ‘y '' tff ' f'Si 


< \ 7 


“31fftrC0NTINUE“ 


INPT 399 
■e/79-'6Cr 
TNPt 35 (T 


w 

I 

rvJ 

C\) 


r ~ 36 -r 
V 367 
36 B 

. READflWTtbooJ KEVr . - i 

IF ( KEY ) 3170 , 3 J 80, 3165 
3)65 CONTINUE . . * ' , 

T " ^ 

’’ * , 1 \ * 

. '• INPT 
INPT . 352 ■ 
INPT . 353 

351 I 1 /-''*, <1 1 ’ 

i - , ► -* ». r • 

369 ” 

rr f k e v .' cr 7 rcORT - w~nr 9 917 


INPT 359 


370 

“ reao ( iNTBcoor nacr , L ' i ) . key ') 


INPT 

355 

37 T 

"ir ( xm . et);xRucrf so * T 0 “ 3 ri 8 ~ 


8 / 79 - GC . 


” 372 " 
. 373 

‘ ,v 379 ' 

” , ctll'w nrrou tpp rrrprE ttutt — 5 

; go to 31 ao ,’ ;» ‘ 

‘ i -.' 3168 NULLCK-i ■" l 

!►? V 1 t ’ i rtf , * * 

FNpr ~ 3 S 4 
. •'* . ’> INPT 357 ' 
” ,#/ 79 » 6 Ct ' 

r ./ , 

■ ■ r ‘ ,‘» v v '>*.' . 

““ 375 “ 

GO TO " 3 TO 


87 ? 9 " GC , 


376 ' 

" 3 I 7 O ~ C 0 NTINUE ’ ’ 


INPT 35 B 


377 “ 

IF { NULLCK’.'NETTT GO - T 7 “ 3 't 75 


ff 779 " SC . 


3 78 “ 
' .’379 
380 

TWLLCK-U *, i ' - •> ■ 1 — 

GO TO 3160 - ‘ V "‘- * 

\ 3175 CONTINUE ■ * \ v '. .' . - • 

«- 

^ ' '9 */ !j ; s " ' f ‘ ' '* 1 " 

' V s l ,. ' ^ .0 ' H ” r ' 

8 / 79 "GC • 
8 / 79 -GC t ’. i . 
8 / 79 - GC . . 

L <* 

’ w >: >A 

30 r - 

CALL WR I TETOUTPUTTXTOTT ) 


INPr “359 


382 ’ 

’ ”’ GO TO 3160 


Ifjpf 36 iT 


383 - 

3 letr - csL ’ L'CLOsE rouTPurm 


INPT 361 


7 - 339 ” 
•* 385 
' ’ 386 

V — TRLTT’I "OUT PUT ^ TTy " — 7 ~7 ' 

» 'CALL WRTTRLITRU 

, '■ WR 1 TEIN 0 UT , 31851 NAME , IN, KF 

* \ 

inPTTSJ 
* , INPT 363 

INPT 369 

- v , > * . ' ; * 

307 ' 

3185 FORHaT t 35 H 6 *»»~ UsEfTTNFoRHAT f 6 N '“ HE 5 SAGE 9 | 39 , 

INPT 365 


388 " 

- 1 •’ 5 X , I IHDATA - BC 0 CK "» 2 A 9 i 29 H 'RETRIEVED FRoH 'FORTRAN TAPE . 12 , 

“ 'INPT '344 


389 ’ 

,. — 21H _ ro(T)( „ B[;oc|c _ COUNT .. 5 - 15 - 

I HI 1 

“ INPT^Sr 


370 ' 

39 1 

392 

1 nTJTTrnT 7 STTn ~ SO“TO “ 3 T 90 

nnt » nnt~i ’ 

- GQ TO 3210 


- I NPf 368 
INPT 369 
INPT 370 

,> v -- " ,** 

.- p . -- w '. 


— - 399- 

— 395 ' 
— 396 “ 
? 397 
398 


3195" FORMAT t 3 l HO** «'“U5ER~WARN I NG "MESSAGE ’9190, 

— •~58H SECONDARY - VERSION’" OF DATA BLOCK’ HAS REPLACED’ EARLIER ONE 7 I 

uo— ro"3Zio ; 

3200 CONTINUE 


INPT " 372 
1 NPT" 173 " 
TNPT^Tr 
INPT 375 
INPT 376 



td 

i 

w 

OJ 



. <(00 ' 
"sot •!'[ 
— 102 


—3 2 0 5— £ 0 ir'Tini U 2-—r-r ■ cn-;)*"^ r r 

•' ASSIGN 220?:,tO;NeTv? 
NSKIP-I 

- 53 - TO - 5 

" 3207 “CONT 1 NUE” 


“103 

“909 32 ronFlNNT;GT;O”TORrTR£fl«flSrK“'OH«"-M-;EQ^HETn~<iO'T 0 “' 3 'nCr 


7~13B . ' GiT~TQT?00 > " ■ . ■ - 

; ioa , c ’■ - ■'; 11 • ■ 

<107 , 3500 iriNNT.LE.fll GO-TO 390<J 

- rrrPi 7 £« 7 HfivT ( j ( n ~ PT 7 E ( r .' ff 5 T ) fr '< io ~ T 0 $« ts ~ 

W R I T £ ! N D D T'fJ 5 TO T ^ 

•3s JO' FORMAT 1 3 J HO*.* «~USER"WARlUfl5~rtE55&'GE" , »'i 1 f7" 

~*~ 5 TFrOTe : , g (? ■• urn " 

OO 3530 J«l ,5 ' .. 

IFINTdlt liNEiOl GO TO 3530 

“wri tet NoomsioTmrrm'nwrr n 

“3S20“F0RHAT t 2OX'i‘2THNAHE'‘0F'“PATA "SLOCK" 

”3530 CONTINUE - " 


3900 CONTINUE - ' ..-‘-i 
ASSIGN 3lOS TO 

1 ISE,IPSn?j: 

GO" TO "500CJ - 

-asoE-couriNUE'" 
return 


RET ■ 


-fri-Wr T 37"?” 

fNPt 378 
' JNP7 379. 
”tNPT 360 

inpt 3fli~ 

"1NPT'3S2- 
INPT 303 
JNPT 304 
INPT365' 
INP't 3 6 <T 
iNpf '' leT - 
' iRpv ' ifiS " 
SSv~ 
• INPT 390 
JNPT 3 9 I 

mr-sti- 
iNprs ^ s ' - 
"ISPf 391 " 
~rMPT , 3^5 
INPT 39 4 
INPT 397 

- rMp ’ rais " 
[ tipra *?" 
" iNpr ' iJOd ” 




rt C v V ‘n 


\ \ ,*>jI * * 

t > ^v,'’ i ; 


> 


i \SlHULATlCN or SKPriLUNiNSKlP ) *' 


TNP 1 ^ 101 “ 
INPT 102 
INPT 103 


' 50 C ' 0 '" Cl}NTiNW 


"I r ( MSKlPCTi Od, "505075200' 


-BOEtrii'iJ “ TO" Rrrrr"r2BT~r737'2'0C677o'25770S5T3aibT32iJ7739irST: 
5100 REWIN0 IN 

c nskip-conplehent or nskip, 

6200' p O' 5290 NSOTfislTtP 

" 6205 REAOt I N, flOOO r'KWORB “ " 

I P f KWdRO I "5220752 JD7B2 10 

~SZ IO~eON T I nUE ■ : - T ” 

ir IKNORD.GT.LCOR) 50 TO 99 J 7 
READ! IN. 80001 ( X It I »L“I |KWORO I 

“GO"" TO “52 06"“" — 

5220 NREC--RWORO 

~'C0- TO 5205 

- S230""EONT INU£~" T' ? — 

5290 CONTINUE 

GO TO 5060 - 


INPT _109 
INPT 105 " 
j NpriO A 


• ' INPT HOT 
- v INPT 108 

• INPT 10 1 


! • ’} ■ ’5‘ 

■ ; 4 ^ 


INPT 110 

-"ffiPf Iff" 


INPT 113 
INPT 111 

• . inpt us , .- w . 

" iNpriv * 

“I NPT ”1 1 7 

“t NPT'' 1 l B 


-£»*•■» ®*®»««ir»is»oa e iso-m * o a » tf a *» a" a » 

C 

C ERRORS _ _ _ „ 

9902HR1TEI NGUT *99621 OUTPUT ” 

■"99S2"T(IRHAf (31HO'5V«-'5-ysTEN’"FATAr'NE§eSGr'il08r"7 : “ 

°51H SUBROUTINE 1NPTT2 UNABLE TO OPEN OUTPUT DATA BLOCK » X 5 ) 
GO TO 9995 


1NPT-9 19 ' 
INPT 120 
INPT 121 
“I NPT” 122 “ 
"INPr 123 ' 
"INPT ' 121 " 
4 « 1 T 0 - « 1 Npr _ 12 S " 
INPT 126 
INPT 127 
HlPf 120 - 
IHPr 129 ' 
INPT 110 


INPT 111 
INPT 112 
INPT 113 



~456- 

457 

458 

' 459" 
—4A0~ 
“Btr 

”462 
' <*63 
464 
— 4i&~ 
Hit' 
467' 

r~468~ 

469 

470 
— n 7 r 
~~472' 
— 473' 


; ; — r — t— 1 NPfMVO 

9908 WR l TE ( NOUT » 9958 I P I 1 • INPT 491 

9958 FORMAT 1 83H0®** USER FATAL MESSAGE Mill* MODULE INPUTT2 - ILLEGAL V1NPT 492 

5aLUE F5RTIfl^XR7fflEJER-]|-Ti20l “ ::,5i ;,a ' 

Gfi-TO "9995“ 


"C ' 


■99TmiflTTETT?TOTT9TiD"r^ ITI7P3X 121 V" FTTTT7FJT7 I “ ~ 

99 AO FORMAT ISIHO*** USER FATAL MESSAGE 41*6. USER TAPE ID CODE 
• 2AM, 47H* DOES NOT HATCH THIRD INPUTT2 OMAP PARAMETER », 
•“2A4,' 2h», j 

~go''to'999S “ ‘ 


INPT 493 
jNPT jf?*T 
INPT 4 95 

Wf^i 
INPT 497 
INP T 4 98 
JNPT 499 
iNPT”50d 
"INPT "625 


77T- 


9943 FORMAT ( 74HO*-* USER FATAL MESSAGE MUM, MODULE INPUTT2 
* APE CODE HEADER • ,7A4.1 

65-’fo" 1 5995 „ _ ' 


~ j NpT §24 
ILLEGAL TINPT 527 

I NPT '628 

INP’f 529 


"99 J M WRlTE|NOUr;996Jn "P3TI i I7P3X f 2 I *~P3 11 T,'p5VZ l~ 


JNPT 

iNPt' 


T7M~ 
4 75 
476 

— 477“ 
— *,78” 

— 479 - 
480” 

MB l 
• 482 
'483“ 
— 484“ 
. 4B5 " 

nsr 

• 487 
488 
489 

— 490- 

49 j - 

■ — 2 ” 

' 493 ■' 

494 

495“ 

496 ‘ 

497" 


"9 9 ATT OF H a f T^TFre • *T^T»r^A"R}rra G"~H E^ATe T 1 3 . uSeRTXpe TcTTdDC.-,' 

• 2A4, 47H*> DOES NOT HATCH THIRD INPUTT2 DMAP PARAMETER n , 

_*_SA4, 2H»t| ' 1 ■„ 

GO To 2006 " 


' 9 9 | 6" WRITE rN0UT799'6TT 
"9 fTS 


INPT 
INPT 
JNPT. 
INPT 535 
INPT '647 
“INPT“548 


530 
53 j 

532 

533 

534 


4142,' 

» BX , 51 HONE OF MORE DATA BLOCKS NOT FOUND 
GQ TO 9990 • 


on fortran Tape, i 


INPT 54 T 
INPT 550 
INPT 551 


, lfjpT 552 

99 J 7"WR I TE't NOUT'i"99iTriTcOR“iKEV • - fNPT"553 

9967-FORHAT(‘87H0^»"USER"TATAL — RESSAGE-2r87“iNSUfTn:iCNT“WaHKlRG _ CdRE INPT“S5'4 
* TTTH d L 5T CTT RAN - CTTSTCTt - R E”c Or 07 7 


'30' 


5X,25HLEMGTH OF WORKING CORE' * , 1 10, IH j 15X> 

35HLENGTH OF FORTRAN LOGICAL RECORD « ,II0»IH»1 

'Td-?m " 


‘991 8' WRIT El NOUT 799681“ KETfKEYX ~ 

} 9W—njRM AT T55H0T*"*^»T5TEirTAT , AL "HESS' ATJE "2190, TCCF3AL: VALUE FQR KEY 
* . »I10,IHiU0X,l7HEXPECTED VALUE * ,110, IH, I 

GO TO 9995 , , • - , ■■ __ 


INPf 555 
INPT 556 
INPT557 
INPT 558 

TnpT'559 
J NPT“ 5 AS 


- — ^98 — ~ — 

499 

500 

— 501- 

— 502 — 

••■■503 "- " 
‘ — 504~ 

505 

506 

— S07 

— 508 ’ • 

—'509 

9 1 0 

511 

512 


"'9?|9~WRITE 1 N0UT799i'9'( — KEY 

~996'9~ FORMAT fSAHOT i*— 5Y5TEWT ATAC"M£5S'A5E~~2T9cr, ILLEGAL"" VAlUe FOR KE? 

T1 1 0 , 1 H , I - " - ~~ " ' ; . ” 


TNPTTj’A 1 

JNPT 562 
JNPT 563 
1NPT“564 
JnpT ' 5A5 
INPf'"566 


GO TO 9995 


C 

~C~ 


9990 DO' 9992' 1-1,5 

“ 1 F 1 NT 1 HI r.NE;Tjr"GD~T0“9992- 


VRrTEINWT,'T99rpNTn72r7NriT7Jl 

999| FORMAT«20X,21HNAHE OF DATA BLOCK • 
9992 CONTINUE 

GO TO 9995" : 


• 2 *4 J 


C 

C 


‘9995 '■WRITE I N0UTT9995T 

9996 FORMAT! 17H0**® FATAL ERROR. 1 
CALL MESAGE1-61 , LCOR , SUBN AM I 


INPT. 667 
INPT 568 
INPT 569 
INPT"570 
JNPT '571 
TNPT~B7Z 
TRPT ~§73 

INPT 574 
INPT 575 
TNPT~S76 
'INPT' 577 
-INPT-578- 
JNPr'579 
INPT 580 
INPT 581 








’S-C«MT78IN209«0BU 

1 

2 C 

3 C 

5 C 

(r 0 

' 7 C 


<0)10UTPT2- 

SUBROUTINE OUTPT2 ' 

COPY DATA BLOCK (S j ONTO FORTRAN UNIT. 

- MODIFIED -TO -HANDLE NULL COLLI HNS— AND • ALLOW USER TAPE POSITIONING- 
IN OUTPT2 


CALL TO THIS HOOULE IS 





OUTPUTS INI , IN2 , IN3 , IN4 ,IN5//V,N,Pl/V,N,P2/V,N,P3 
P1=Q , NO ACTION TAKEN BEFORE WRITE 

p-i = *-n, skip-foruard-n-oata - blocks -be fore— write 

Pl=-1, FORTRAN TAPE IS REWOUNO BEFORE WRITE 

PI- —2 , F ORTR AN-T APE— IS— REWOU ND AND- ADVANCED TO- 

BEGINNING OF FIRST DATA BLOCK 
P-1 = -3t -THE -NAMES--OF — ALL-DATA blocks on fortran tape 
ARE PRINTED AND WRITE OCCURS AT THE END OF 

T-APE 

Pl=-9, WRITE A NULL FILE, ENOFILE ANU 

REWIND- FORTRAN--! APE 

THE HPL DEFAULT VALUE FOR PI IS 0 . 

P2 IS THE FORTRAN UNIT NO. ON WHICH THE DATA 

-BLOCKS- -WIL-L— Bt-WRI-TTEN. 

THE HPL DEFAULT VALUE FOR P2 IS 0 . 


P3 - TAPE ID CODE FOR FORTRAN TAPE, AN ALPHANUMERIC 
VARIABLE-WHOSE—VALUE-WILL..DE WRITTEN. ON A FORTRAN 
TAPE . 

■T HE— WR I T I N G — 0 F — T-HIS — IT-E-H -IS-DE PE NOEN T— ON -THE 

VALUE OF PI AS FOLLOWS.. 

,...#P1* >*-T APE ID— WRI-T TEN*- 

+ N NO 

-1 YES 

3 — N 0 — ( WARN TNG— CHE CK-) — 

THE MPL DEFAULT VALUE FOR P3 IS XXXXXXXX . 


-INTEGER. OUT, TRL (7) ,C0R$2, — NAMC-<2 J ,NONE I 2 ) ,SUBNAM< 2) . 

INTEGER IN< S) ,P1 , ZER0,NAMEX<2) ,P2 , P3 , I DHDR ( 7 ) , IDHQRX 1 7 ) 

INTEGER -P-3X (-2-) T D , DX ( 3 ) 

INTEGER T A P COD (21 

- INTEGER-£NUREC,ENDFIL — — - — 

INTEGER RET 


COMMON / / P1,P2,P3(2> 

+■ /SY-S-TEM/— N8 , NOUT r UUNK !£-) ,NLPP-» JNK2 ( S 1 ,0 131 

* /OUT 2X X/ X ( 2 ) 


DATA NONE , 5UBNAM/4H t NO ,*1 HNE ) ,4H0UTP,4HT2 / 

• DATA - IN/101,102,103,.104 ,1DS/- ... . . - 

DATA 2ER0 ,MONE ,M7W0 ,1-lTRE .MNIN/O ,-l ,-2 ,-3, -9/ 

DA-TA— I DHDR /-OH N AST , 4 HR AN -,-4HF0R I-,4H— T AP ,-4 HE - ID , 4H-C0D , 4HE— - -/ - 
DATA XNULL/ 4HNULL / 


OUTP 1 
OUTP 2 
OUTP 3 
•8/74-GC.- 
8/74-GC. 
-OUTP — 4- 
OUTP S 
--OUTP f>- 
10UTP 7 
•OUTP -• B- 
OUTP 9 
-OUTP— ID- 
OUTP 11 
- 0/74-GC.-- 
8/74 -GC • 
OUTP -12- 
OUTP 13 

-OUTP 1 4- 

OUTP 15 
-OUTP- 16- 
OUTP 17 

-outp - la 

OUTP 19 

- OUTP — 20- 
0 UTP 21 

- OUTP • 22- 
OUTP 23 
—OUTP-- 2 4 . 

OUTP 25 
-OUTP — 2 E>~ 
OUTP 27 
-OUTP- 2ES- 
0 UTP 29 
OUTP —30- 
OUTP 31 
— OUTP— 

OUTP 
-OUTP- 
OUTP 

- OUTP- 36 . 
OUTP 37 

-OUTP 38- 

0 UTP 39 
■ OUTP— 40- 
OUTP 41 
• OUTP -42- 
OUTP 4 J 

- a UTP — 4 4- 
OUTP 45 

- OUTP- 46 • 
OUTP 47 

•OUTP. 48. 
OUTP 49 
-OUTP — 50- 
B/74-GC. 


-32- 

33 

-34- 

35 



— 56 C~ - • •" OUT p ST 

S7 C OUTP S 2 

— 56- " --C - • OUT P 5 3 

S9 C OUTP 56 

-• bO ' 600 0 • FORMAT t 22 A 6 ) - " - — • • ■ 

61 ' ENDFIL=0 OUTP 55 

-62 : "ENDRE'C = 0 OUTP - 56' 

•63 LCOR=CORSZ ( PI , X > - NB OUTP 57 

6 S C TO CONTROL FORTRAN BATA SIZE 9/75-NUK 

6 6 C ------- - 9/75-NUK- - — 

67 IF t LCOR . G T .2000 ) LC0R=2000 9/75-NUK 

— 66 LC0R2-LCOR/-2 OUTP-- 56 

69 IF (LCOR.LE.O) CALL ME S AGE < -8 , LCOR , SUBN AM ) OUTP 59 

-70 INBUF = L COR-t-1 • - • OUTP ■ 60 

71 TAPCOD(l) = P 3 ( 1 ) OUTP 61 

-72 - TAPC0D(2> -a- P3(2) -OUTP - 62 

73 0UT=P2 OUTp 63 

-- 76 IF(P1 .EQvMNIN-1— GO-TO— 1500 < 1 OUTP-— 64 

75 IF (P1.LT.HTRE) CO TO 9905 ' 6/74-GC. 

77 IF (Pl.EQ.MTWO .OR. P1.E0.MTRE) GO TO 2000 8/74-GC. 

--76 IF (PI .LE .ZERO )- GO TO 190 OUTP -68 — 

79 C OUTP 69 

—0 0 1 = 1 — — OUTP 70 

61 120 CONTINUE OUTP 71 

— 82 - -READ (OUT, 6000)-KEY- 

83 KEYX=2 

-84- — — IF-( KE Y . NE • KE YX-). GO -TO- 9918 

85 READ(OUT, 8000 ) NAMEX OUTP 72 

—66 R£AD(OUT,8GOO ) — KEY— — — 

8 1 IF (KfY.GE.O) GO TO 9919 

-•8 8 ASSIGN 125 -TO-RET -OUTP -73 

89 N S K I P = 1 OUTP 74 

— 90 GO -TO .5000 OUTP-— 75 

91 125 CONTINUE OUTP 76 

— 92 1=1*- 1- OUTP 7-7 

93 IF(I.LE.Pl) GO TO 120 OUTP 78 

95 190 CONTINUE OUTP BO 

— 96 IF(P1.NE.H0NE )— GO • TO • 1 95 -- OUTP -81 

97 REWIND OUT OUTP 82 

98 K E Y = 3 OUTP— 8 3- 

99 WRITE (OUT, 8000) KEY OUTP 84 

-100 — — - WRrTE(0UT,8QQ0) D - . .. , . 0 UTP — 85 

101 K E Y = 7 • , OUTP 06 

102 - WRITE (OUT,8000 ) KEY OUTP— 87 

103 WRITE < OUT, 0000 1 IDHDR . OUTP 88 

•104 KEY-2 - OUTP 8-9 

105 WRITE ( OUT, 8000) KEY OUTP 90 

-106 WRITE ( OUT , 8 000 P3 — - OUTP 91 

107 ENDREC=EN0REC-1 OUTP 92 

106 WRITE ( OUT., 8 000 1 — ENURE C — — OUTP— 93 

109 WRITE(OUT ,8000) ENDFIL OUTP 94 

HO ENOREC = 0 OUTP- 95 - 

HI C OUTP 96 




195— CONTINUE 

00 1000 1=1,5 


INPUT=IN( I ) 

CALL- FNAMEUNPUT, NAME) 

IF1NAMEI 1) .EO.NONE(l) .AND. 

TRL ( 1) =INRUT 

CALL RDTRL(TRL) 

IF CTRL! 1) .LE.Ol' GO TO 1000 


NAHE( 2 I .EQ.NONC <2 >> GO TO 1000 


OPEN- TNPUT DATA BLOCK-JO RC A 0 WITH REMIND. 


CALL— OPEN M 990-1-, INPUT ,X ( INBUF-)-, 0-)- 
CALL OPEN ( $ 9901 , INPUT, X (INBUF > , 0) 

KE V 

NAME 


OUTP 
OUTP 
OUTP 
OUTP 
OUTP 
OUTP 
OUTP 
OUTP 
OUTP 
OUTP 
• OUTP 
OUTP 
-OUTP 
OUTP 
OUTP 


WRITE (OUT, 8000) 

URITE (OUT, 8000) 
ENUREC=EN0REC-1 
WRITE ( OUT, -8 000 >- ENDREC- 
KEY= 7 

WRITE(0UT,8D00)-KEY • • 
URITE(0UT,8Q00) TRL 
LNDRKC=LN0REC~1 - - - 

URITE(OUT,8000) ENDREC 



--OUTP 


COPY CONTENTS OF INPUT DATA BLOCK ONTO FILE, 


200 CALL READ(i30Q, $25 O lt INPUT ,X (1 ) ,LC0R2,0,NF1 

2 00 - CALL- RE AO ( $ 300, $250, INPUT ,X 1 1 ) , LC0H2 , 0 , NF.) . . .. 

ViRITE(0UT,8D00) LC0R2 

-URlTC(OUT,tiOOO>~(X(L).,L=l-,LCOR2) - — 

CO TO 20Q 


OUTP- 
OUTP 
. OUTP 
OUTP 
.OIJTP. 


250 CONTINUE 
IF. -(NF.EQ.O). 


GO TO 260 


OUTP 

OUTP 

OUTP 

8/79 


■ 97 

98 

99 
100 
101 
102 

-103 

109 . 

105 - — 
108 

.107 -- -- 
108 

.109 

110 

111 

OUTP 112 
-0UTP--113- 
119 

-0 U TP. -1.15- 
116 

OUTP— 1 1 7- 
0 U TP 118 

, U9- 

•OUTP 120 

.121 

122 

123 

129 

. 125 

OUTP 126 
-OUTP— 1 2-7- 
128 

129- 

130 

:GC . 


197 WRITE(OUT, 80001 NF 

Ill 8 WRITE ( OUT r 80D0.1- ( X ( L ) , L = 1., N F 1 . 

199 XX1=X(1) 

-.150 - 255 CONTINUE 

151 ENUREC=£NDREC-1 

162--.' MRITEf OUT ,8000) . ENDREC 

163 GO TO 2Q0 

— 159 260 NF2 = 2- — 


155 

- l 56 

157 

... 158 - — 


159 

— 160 

161 

• 162 - 
163 

- 169 - 


165 

- 166 

167 


WRITE (OUT, 8000) NFZ 
X ( 2) =XNULL 

- WRITE (OUT, 8000) <X(L ) ,L=1 , NFZ) 

GO TO 255 

C CLOSE INPUT DATA BLOCK WITH REWIND. 

300 CALL CLOSE! INPUT, 1 ) 

C ■ ■ - - • 

WRITE(0UT,6Q0D) ENDFIL 

- - £N0REC = 0 

WRITE (NOUT, 350) NAML,OUT , TRL 


• OUTP 131 

OUTP. .132 

8/79-6C. 

OUTP 133 

OUTP 135 

8/79-GC. — — : 

3/79-GC. 

8/79-GC. 

8/79-GC. i 

8/79-GC. 

OUTp- 136 — — — • 

OtlTP 137 

- OUTP 138 - 

OUTP 139 

OUTP 190 

OUTP 191 

- - OUTP 192 : 

OUTP 193 



1-6T5 3SG""F0RMAT( 35MT3 *$¥ 0 S £R TN FOR H AT IOfT'ME SS AGE "'I 1 1 <1 , / 

169 * 12H DATA BLOCK ,2A4,2SH WRITTEN OH FORTRAN UNIT ,12, 

" "17U 8H, -TRL •= /1X,7U8 ) ■ 

171 C 

•• 172‘ -*• 1000 CONTINUE ' ” “ 

173 C 

17*) C — : CLOSE- FORTH AH - — T AP E WITHOUT 'REWIND, 

175 C 

--176 WRITE t OUT, 80001- ENDFIL ~ 

177 ENDR£C=0 

— 17(1 — BACKSPACE- OUT * - 

179 RETURN 


181 

C 

FINAL CALL TO OUTPUT 2 » 

‘ 18 2" 
183 

1500 CONTINUE 


165 

E.NDRETC ~0 

166 

187 

c n u rut wui 
REWIND OUT 


188” 

189 

— 190 

191 

t TURN •* - - 
C 

c 

-OBTAIN -L-IST— OF- OA-TA“BLOCKS- ON F ORTR A N - T APE . - - - 


192 -"2000 “CONTINUE 

i 193 REWIND OUT 

194 READ (OUT, 800Q1-KEY 

195 KEYX=3 

--■196 IF (KEY. NE.KE-YX)“GO--TO- 9 91-8- 


’ • OUTP 1*1 4 
OUTP 145 
OUTP 146 
OUTP 147 
OUTP 148 
OUTP 149 

■ - ‘ OUTP • 150 

OUTP 151 

9/75-NUH- 

9/7 S-NUK 
- 9/7S-NUK-- 
OUTP 155 

OUTP' 156“ 

OUTP 157 

OUTP 158 - 

OUTP 159 

OUTP 160 

0U1P 161 

OUTP- 162- 

OllTP 163 

- - -OUTP 164 -- - 

OUTP 165 

— - OUTP 166 

OUTP 167 

OUTP -160 — - 

OUTP 169 

... . OUTP 1 70 

OUTP 171 
OUTP 172 •- 


- 197 READ(OUT,8U00) OX OUTP 173 

198 RE-AO (OUT , 8000-)— KEY' — OUTP -1-74 

199 KE YX-7 OUTP 175 

— 200 -- • — - — IF ( KEY. NE .KFYX (-G0-T0--991 8 -0UTP-176-- 

201 REAOCOUT, 8U001 IDHDRX OUTP 177 

— 202 DO 2005 KF=-l,-7 — OUTP 176 

203 IF (IUHDRX <KF> . NE .IOHOR (KF 1 1 GO TO 9913 OUTP 179 

204 200S-00NT1NUE 1 — - OUTP 180 

205,% REAOIOUT.aUOO) KEY OUTP 181 

— 206' — 1 KEYXi2 — - . -- OUTp-182 

207 ' IF ( KEY.NE .KEYX 1 GO TO 9918 OUTP 183 

— 208 — REAO(OUT,8000> P3X — • ... - - . OUTP 184 

209 I F ( P 3X < 1) .NE.P3I1) .OR. P 3 X ( 2 1 . NE . P3 ( 2 1 1 GO TO 9914 OUTP 185 

210 -2006-CONTINUE— ; — OUTP-186 

211 ASSIGN 2008 TO RET OUTP 187 

— ■ 21 2 - - NSKIP- 1 . -OUTP 188 

213 GO TO 5000 OUTP 189 

— 214 2008 CONTINUE • •• OUTP 190 

215 IF (P1.EQ.MTU01 RETURN 8/74-GC. 

216 KF = 0 OUTP— 191 

217 2007 CALL PAGE1 OUTP 192 

— -218 WRITE ( NOUT, 2010) -OUT - - - - OUTP 193 •— • 

219 2010 FORMAT '(lHQ.SOX, 14 , 1411 FILE CONTENTS /4 6X , 4 HF I LE , 1 8 X , 4 HN AME / 1HD 1 8/74-GC. 

220 • 2U20-C0NT1NUE" — --0UTP-195 

221 RE AO ( OU T , 8000 ) KEY OUTP 196 

222 -IFIKEYI 99 1 5, "2050 , 2023 * — OUTP'197 

223 2023 CONTINUE OUTP 198 



w 

I 

oo 

o 


22 4“ 
225 
“ 226- 
227 
- 228- 
229 

— 230 - 
231 

-232- 

233 

— 234 - 
235 

-—2 36 - 
237 
~2 38- 
239 

— 240 - 
29 1 

24 2 “ 

29 3 

— 299- 

246 

-- 246 - 

247 

248- 

249 

— 250- 
251 

— 252 ■ 
253 

-—,254- 
255 
-256 - 
257 
25b 
269 

2b0 

261 

— 262 - 
263 

- 264 - 
265 

—-266- 
2fa7 
—2 63 ■ 
269 
-■■270 
271 

— 2 7 2- 
273 
--274 
275 

- 276 
277 

- 2 78- 
279 


"RrAOfOUTi B000 njAMCX 

ASSIGN 2025 TO RET 

• ■ - " NSKIP=1 - 

GO TO 5000 

2025" CONTINUE - - 

KF = KF-*1 

~WRI TE { NOUT— 203 0 KF ,N AMEX” 


C- 

c 

-- c- 


2Q3Q FORMAT ( 4 5X » 15* 18Xt2A4 ) 

IFlMOtHKF »NLPP) 1 -2 020,2007,2020- 

2050 CONTINUE 
--- — BACKSPACE-OUT — - 
GO TO 195 


SIMULATION OF SKPFIL (OUT r NSKIP 1 . 


5000 CONTINUE 

IF(NSKIP)— 5100,5050,5200 — 

5050 GO TO RET, (125,2008,20251 

—51 00--REWIND -OUT 

C NSKIP=COMPLChENT OF NSKIP. 

“ 5200 00-5290 NS=1,“NSKIP • - 

5205 READIOUT ,BU00) KWORO 


OUTP 
• OUTP 
OllTP 
OUTP 
OuTP 

OUTp 

OUTP 
OUTP 
OUTP 
• ■ - 3/74 

OUTP 

OUTP 

OUTP 
-- OUTP 
OUTP 
•— - OUTP 
8/74 
— —OUTP 
OUTP 


OUTP 199“ 
200 

201 ■ — 
202 ■ 

203 • — 

204 ' 

2 o!> 

206 

207 

208 

-GC. 

21 3 

- ? 1 4 

215 

-216 — 

217 

2 1 B -- — 
-GC. 

220 

221 


OUTP 222 — 


— IF(KWORD) 5220,5230,5210 


5210 CONTINUE 

IF (KMOftO.GT-.L-C-OR) GO -TO-991-7- 

RE AO < OUT ,80 00) ( X ( L 1 ,L = 1 , KWORO 1 

■ - GO - TO 5205 

5220 NRECr-KWORO 

GO -TO 5205 

5230 CONTINUE 

--5 29 0 CONTINUE- 


GO TO 5050 


■ • -- • OUTP 
OUTP 
OUTP- 

OUTP 

OUTP 

OUTP 

OUTP 

OUTP- 

OUTP 
- - OUTP 
OUTP 


OUTP 223 

224 

225 

226 


C 

C* 4 4* >i> >6 ** + + **(.<■*♦**(■ »<<«v*>/ : «<'99$0UTP 

C 

C 


-E-RRORS- 


9901 WRITE) N OUT-, -99 5 1-1 -INPUT . 

9951 FORMAT <31110*** SYSTEM FATAL MESSAGE 4116, , 

♦ S2HSUBR0UTINE- OUTP72 UNABLE-TO • OPEN-INPUT DATA BLOCK - 151- 

GO TO 9995 


— 0- 


OUTP 
OUTP 
OUTP 
OUTP 
OUTP 
OUTP 
OUTP 
OUTP ■ 

9905 WRITE (NOUT ,99551 PI OUTP 

-9955"F0RMAT(83H0*+*-USER FATAL-* MESSAGE— 4120, -MOOULE 0UTPUT2 — ILLEGAL- VOUTP 

*ALUE FOR FIRST PARAMETER = ,I20|) OUTP 

GO TO 9995 — ! . .. OUTP 

c _ OUTP 

-99 13 WRITE (NOUT-, 996-3 1 ~ ( I OMOR X < K F-1-, KF-=l-,-7 1 

9963 FORMAT l 74HO#*0 USER FATAL MESSAGE 4130, MODULE 0UTPUT2 - ILLEGAL TOUTP 

t*AP£ CODE HEADER = ,7A4) _ . OUTp 

GO TO 9995 0UTp 

9914 WRITE (NOUT, 9964 1 P 3 X ( 1 1 ,P 3X 1 2 ) , P3tl),P3(21 OUTP 

-• 9964~FORMATt54HO**« -USE R -W A RNI NG-ME 6 5 AGE—4 1-3 1 , FORTRAN -TAPE -ID CODE OUTP- 
* 2A4, 47H- does NOT MATCH THIRD 0UTPUT2 OHAP PARAMETER OUTP 


OUTP 227 

228 - ■ 

229 

2 30 . — 

231 

■ 232 

233 

234 - , 

2 35 

236 *— 

237 

■238 

239 

240 

24 1 

242 -- 

243 

244 

258 

259 

260 

261 

262 

■ 287 

288 

289 — 

290 

291 

292 

29 3- 

294 



-31 


■ * * 2 A M‘, ' * ‘ 

GO TO 20Q6 

99 iS UR ITE( NOUT, 9965) 

9965 FORMAT ( 59HCj6#<"' SYSTEM FATAL' MESSAGE-MI 1 5 , MODULE OUTPUT 2 
*CC. ) 


C ■ 


•9917 WRITE (MOOT ,'99671 LCOR.KfY - ■ 

9967 FORMAT (STHQ*** USER FATAL ME S S AS E, 2 1 B7 , 

- •• *T0 HOLD FORTRAN LOSiCAL RECORD.-""/" 

* 5X,25HLENGTH OF WORDING COR.E = ,110 

-* 35HLEN61H-0P 'FORTRAN -LOGICAL" REC 

GO TO 9 99 S 

9918 UftIT£(NOUT ,99681 KfY,K£YX 

9968 FORMAT (56H0^*^ SYSTEM F AT A L" HE S S AG C"2 1 VO , 

* ,no,in, t iox,i7HexFEcreD value = ,i 

--GO-TO-999 5 s 


INSUFFICIENT WOT 


»IH, t5X, 

OkU = 1 1Q,1 H*. 1 - 


ILLEGAL' 

10, 1H. ) 


VALUE FOR KEY = 


OUTP 

295 ■ ~ 

OUTP 

296 

OUTP 

297 

OUTP 

298 

ROD TP 

299 

OUTP 

300 

OUTP 

iUl — 

OUTP 

302 

OUT P 

■303 

. OUTP 

30*t 

OUTp 

3US ' - 

OUTP 

306 

-- OUTP 

-307 

OUTP 

3oa 

- OUTP 

309 

OUTP 

310 

: OUTP 

311 

OUTp 
— OUTP" 

312 

313 


CT 


-9919 WRITECNOUT ,99 69) KEY - 

9969 FORMAT (56H0*** SYSTEM FATAL MESSAGE 2190, ILLEGAL VALUE FOR KEY = 

, 1 10 , 1H> I- ■ - -■ 

60 To 9995 

-C 

C 


•9995 WR I TE ( NOUT j 99 96 ) 

9996 FORMAT (17 U 0*6# FATAL ERROR.) 

■ • - CALL- MESAGE <~61 ,LCOfi , SUBNAM-)-- 

RETURN 


OUTP-319- 
315 
316- 
317 
318- 


0 UTP 

- OUTP 
OUTP 

- OUTP 


C 


ENO 


-OUTP- 

OUTP 


-32 0- 
321 



Appendix C 


Data File Listings 


Table 

Description 

C-l 

RUN1 File 

C-2 

START File 

C-3 

NASI File 

C-4 

LOOP File 

C-5 

PCH2 File 



Table C-l 

RUN1 FILE- - 


sdata.l RUN 1 . 

D AT A. 7_ _RL 70 -5 ^ 01/09-23 842 tS7 


1. 

3ASG,A START. 

2* 

a ASG , A LEE. 

3. 

a A SG . A NASI. 

4. 

a A SG , A P C H 2_. 

5. 

a ASG i A loop'! 

6. 

a ASG, A NASTRAN, 

7. 

a ASG. A OBJ. 

6. 

auSE TPFS.,LEE. 

9. ’ 

aA0D,P START. 

10. 

aCPDHPH,DO 

i i . 

PRT 15,30 ' 

12. 

PR T 17,30 

13. 

3 ADD , P LOOP. 

14. 

aADO.P LOOP. 

15. 

a A DD , P LOOP. 

16. 

a A DO , P LOOP; 

17. 

3ADD ,P LOOP. 

18. 

aPHD , £ 

19. 

ariN 

END DATA* 



C-l 



Table C-2 
START FILE 


_S YH 

START . 

0»TA'.8R1 SL73R1 1C/31/78 21 :19:15 <0) 

1. SASG.T. P.tTl,F///2MO 

2. SUSE 12. ,PLT I • 

2. __ a ASG , T lNPT t F///2000 

'<(. ' “ *aASGiT"lNPl*F///2000 

£j 3ASG,_1 lNP2,F//./20Q0 

6. a ASG » T INP3 » F// /20Q0 


7. 

6. 

5. 

1C. 
1 1. 

ausE 

ausE 

aosE 

ausE' 

2ASG, 

19. . 1NPT. 
15. ,INP"l. 

16.. 1NP2. . 
17 . »INP3. 

i A PCH2 . 





— 





!<• 

suse 

16. 

. PCH 2 . 





1 2. 

a ASG i 

,T PCH1.F///1000 




11. 

a ASG ! 

,C PCH3.F///1000 




1 E. 

ausE 

19. 

,PCH3. 





16. 

SERKPT PUNCHS/PCtfl 




17. 

axoi 

CELFE 





1 8. 

♦ 1 

CHANGE THIS CARD 

TO 0 

FOR CLEFE RUN ONLY 

IS. 

0 







2 C. 

HIGH VELOCITY 

IMPACT - 

— DEMONSTRATION PROBLEH 

2 1. 

1 

1 

51 9 

1 

0 

2 

8 10 0 

2 2m 

9. 

, CD 

G. 


□ 

• 


2 2. 


0 

.0 

0.0 ■ 

-7. 

5600*3 2.0000*0 2.0000*0 8.20Q0-r2 

21. 

7, 3CU0 

-2 5.1200-2 


0 

.0 2.7027*3 0.0 6.0000*3 1.0000*0 

2 S. 

76 

33 

13 3 

16 

3 

62 

30 77 39 76 33 698 103 

26. 

20 

2D 

D 15 

15 

10 

10 

10 '10 1G 10 10 10 10 20 20 0 

27. 

1 

9 

ID 7 

2 

5 

11 

8 

28. 

2 

5 

11 8 

3 

6 

12 

9 

2 9. 

3 

6 

12 9 

13 

19 

16 

15 

3C. 

9 

17 

20 10 

5 

18 

21 

11 

31. 

5 

18 

21 11 

6 

19 

22 

12 , 

32. 

10 

20 

23 26 

11 

21 

29 

27 

32. 

11 

21 

29 27 

12 

22 

25 

28 

31. 

7 

ID 

26 29 

8 

11 

27 

30 

3 5. 

8 

11 

27 30 

9 

12 

28 

31 

36. 

17 

32 

35 2 0 

18 

33 

36 

21 

37. 

18 

33 

36 21 

19 

39 

37 

22 

38. 

20 

35 

38 23 

21 

36 

39 

29 

39. 

21 

36 

39 29 

22 

37 

90 

25 

9 C. 

26 

23 

38 91 

27 

29 

39 

92 

9 1. 

27 

29 

39 92 

28 

25 

90 

93 

^ 2m 

29 

26 

91 99 

30 

27 

92 

95 

1 2. 

30 

27 

92 95 

31 

28 

93 

96 

9 1. 

32 

97 

50 35 

33 

98 

51 

36 

9 E. 

. 33 ■ 

’ 98 

51 36 

39 

99 

52 

37 

9 6. 

35 

SO 

53 38 

36 

51 

59 

39 

97. ' 

36 

51 

59 39 

37 

52 

55 

90 

9 E. 

91 

38 

53 56 

92 

39 

59 

57 

99. 

92 

39 

59 57 

93 

9 0 

55 

58 

5 C* 

99 

91 

56 59 

95 

92 

57 

60 

5 1. 

95 

92 

57 6G 

96 

93 

58 

61 

52. 

97 

62 

65 50 

98 

63 

66 

51 

52. 

98 

63 

66 5 1 

99 

69 

67 

52 

■■ 59 ; 

“ 50 

6 5 

68“ 53 

51 

66 

69 

59 








(Continued) 







C- 

2 


©mGWAL IS 

OF POGP QUALITY 



SYH 


Table C-2 (Continued) 


55. 

51 

66 

69 

59 

52 

67 

70 

55 

56. 

56 

53 

68 

71 

57 

59 

69 

72 

51. 

57 

59 

69 

72 

58 

55 

70 

73 

58. ' 

_ — 5 ^~ 

56' 

71 * 

79" 

60 

"57' 

"72 

"75 

59. 

60 

57 

72 

75 

61 

58 

73 

76 


6 C. 

GRID 

1 

20. 

0.' 

0 . 

6 1. 

GRID 

2 

10. 

0. 

0.041 

6 2* 

GRID 

3 

10. • 

0. 

0.082 

62. 

GRID 

8 

20.15 

0. 

0. 

69. 

GRID 

5 

10.15 

0 . 

C.081 

65. 

GRID 

6 

10.15 

0 . 

0.082 

6 6. 

GRI-D 

7 

20. 

0.15 

"0." 

61. 

GRID 

8 

10. 

0.15 

0.081 

68. 

GRID 

9 

10. 

Q.TS" 

C.082 

69. 

GRID 

ID 

20.15 

0.15 

0 . 

7 t. 

GRID 

11 

10.15 

0.15 

0.081 

71. 

GRID 

12 

10.15 

0.15 

0.082 

72. ' 

GRID 

13 

10. 

0. 

0.232 

73. 

GRID 

18 

10.15 

0. 

0.232 

7 9. 

'•GRID 

15 

10. " 

0.15" 

”0.232 

7 5. 

GRID 

16 

10.15 

0 .15 

0.232 

76. 

GRID 

17 

20.35 

0. 

0. 

71. 

6RI0 

18 

10.35 

0 . 

0.081 

7 8. ‘ 

GRID 

19 

10.35 

0. 

0.082 ' 

79. 

6RID 

20 

20.35 

0.15 

a. 

“ ' 8 C. 

GRID" 

'”"21" 

TO. 35 

" G".T5" 

0.081 

8 1. 

GRID 

22 

10.35 

0.15 

0.082 

82, 

GRID 

23 

20.35 

0.35 

C. 

8 2. 

GRID 

24 

10.35 

0.35 

0.081 

' ' 8 8. "' 

GRID 

25 

10.35 

"""0.35' 

C.082 

85. 

GRID 

26 

20.15 

0.35 

G. 

8 6. 

"'GRID' 

“ 27 

10.. 1 5” 

'0.35' 

0.081 “ 

8 7. 

GRID 

28 

10.15 

0.35 

C.082 

8 8. 

GRID 

' 29 

' 20. 

' 0.35 

0. 

• • 89. 

GRID 

30 

10. 

□ ..35 

0.081 

9 C • 

GRID 

31 

10. 

0.35 

0.082 

9 1. 

GRID 

32 

20. 5 

0. 

C. 

92. 

GRID 

33" 

' ' " 10.5"' 

0. 

0.08 1 

9 2. 

GRIO 

38 

10.5- 

0. 

0.082 

9 9. 

GRID' 

35" 

20.5 

0.35 

‘ 0. ' ■ 

95. 

GRIO 

36 

10. 5 

0.35 

0.081 

96. 

GRID 

37 

TO. 5 ' 

0.35 

0.082 ” 

91. 

GRID 

38 

20.5 

0.5 

0. 

96. 

GRID ’ 

39" 

10.5- 

" 0.5“ 

‘o:o8r“ 

99. 

GRID 

80 

10.5 

0.5 

0.082 

•10C. 

GRID 

81 

20.35 

0.5 

a. 

10 1. 

GRIO 

82 

10.35 

0.5 

0.081 

102. . 

GRID 

83 

10.35 

0.5 

0.082 

102. 

GRID 

88 

20. 

0.5 

0. 

1'0<U ~~ 

“SR ID 

85 

10. 

DT5 

0."09T 

105. 

GRID 

46 

10. 

0.5 

0.082 

106. 

GRID 

87 

21 . 

0. 

0. 

101. 

GRID 

48 

n. 

0. 

0.041 

7 ~ 108. 

GRID 

89 

u. 

0. 

0.082 

109. 

GRID 

50 

21. 

0.5 

G. 

. lie. 

GRID 

51 

11. 

0.5 

C.041 


C-3 



_S VH . 


Table C-2 (Concluded) 


•111. 

GRID 

52 



-11. 

0.5 

0.032 




112. 

GRID 

53 



21. 

1. 

a. 




•113. 

6R1D 

54 



11. 

1. 

_ 0.041 




111. 

GRID 

55 



i-r. 

• 1. 

0.082 




HE. 

GRID 

56 



20.. 5. 

1 * 

0, ... 




116. 

GRID 

57 



10.5 

1. 

0.041 




'll 7. 

GRID 

58 



10.5 

1. 

0.082 




118. 

GRID 

59 



20. 

1. 

0. 





GRID 

60 



10. 

1 . 

0.041 




12 C. 

GRID 

61 



10. 

1. 

0.032 




■ 12 1. 

GRID 

62 



22. 

0. 

a. 




12 2. 

GRID 

63 



22. 

0. 

.C41 




12 2. 

6RID 

64 



22. 

0. 

.082 




12*). 

GRID 

65 



22. - 

. 1. 

0 . 




126. 

GRID 

66 



22. 

1. 

.041 




12 6. 

GRID 

67 



22. 

1. 

.082 




127. 

GRID 

68 



22. 

2. 

0 . 




12 8. 

GRID 

69 



22. 

2. 

.041 




12S. 

6RID 

70 



22. 

2. 

.082 




13C. 

GRID 

71 



,21. 

2. 

C. 




131. 

GRID 

72 



21. 

2. 

.041 




132. 

GRID 

73 



21. 

2. 

.082 




132. 

GRID 

74 



20. 

2. 

0. 




13 4. 

GRID 

75 



20. 

2. 

.041 




1 3 E. 

GRID 

76 



20. 

2. 

.082 




136. 

1 

4 6 

7 

9 

10 12- 

13 14 

IS 16 

17 

19 2D 22 

23 25 26 28 29 

13 7. 

31 

32 34 

35 

37 

38 40 . 

41 43 

4 4 46 

47 

49 50 52 

53 55 56 58 59 

136. 

61 

62 64 

65 

67 

68 70 

71 73 

74 76 




135. 

3 

6 9 

12 








14 C. 

8.1 BOO +3 9 

.ioaa+3 

8.9000+3 

9.1000+3 0.1990+6 

9 .1 DO 0+ 3 

8.9000+3 9.1000+3 

14 1. 

8 • 1 COO +3 









142. 

17.9C00+3 9 

.1000+3 

8 .9000+3 

9.1000+3 0.2320+6 

9 .1000+3 

8.90Q'0 + 3~ 9.1000+3 

14 2. 

. 17. 900Q+3 









14 4. 

3. 1500+6 0 

• 7 8G0 + 6 

0.6000+6 

i, Q. 7800+6 29.2000+6 

0 *7800+6 

0.6000+6 0.7800+6 

14 £• 

3.1 

50Q+6 









146. 

□ . 

ao 

0.17 


0.53 - 

0.17 

0. 

DO 

0. 17 

0.53 0.17 

14 7. 

0. 

oa 









14 8. 

1 

2 3 

7 

S 

9 13 

15 29 

30 31 

44 

45 46 5$~ 

60 6 1 TW~ 75 76 

14 5. 

1 

2 3 

4 

5 

6 13 

14 17 

18 19 

32 

33 34 47 

48 49 62 63 64 

ISC. 

62 

63 64 

65 

66 

67 68 

69 70 

71 72 

73 

74 75. 76 


16 1. 

62 

63 64 

65 

66 

67 68 

69 70 

71 72 

73 

74 75 76 


1 B 2* 

62 

64 65 

67 

6 8 

70 71 

73 74 

76 




16 2. 

62 

64 65 

67 

68 

70 71 

73 74 

76 




154. 

62 

64 65 

67 

68 

70 71 

73' 74 

76 




15 5. 

62 

64 65 

67 

68 

70 71 

73 74 

76 

‘ * 



156. 

62 

64 65 

67 

68 

70 71 

73 74 

76 




157. 

, 62 

64 65 

67 

68 

70 71 

73 74 

76 




156. 

62 . 

64 65. 

67 ’ 

68 

70 71“ 

73 74 

76 




155 . ’ 

62 

64 65 

67 

68 

70 71 

73 74 

76 




" 16C. 

62 

64 65” 

67 

68 

70 71 73-74 

7 6' 




161. 

1 

2 3 

7 

8 

9 13 

15 29 

30 31 

44 

45 46 59 

60 61 74 75 76 

162. 

' 1 ' 

2“' 3 

4 

5 

'6 13 ' 

14 17 

18 19' ' 

32 

33 ”34' ~ "4 7" 

48' "49 " 62' "'63'~'64 " 

162. 

□ . 

001 

0.001 

0.002 

0.QQ2 

0. 

002 

0.002 

0.005 0.005 

16 4. 

SBRKP7 PUNCH* 








. - 

165. 

SPREE 

tb 18. 









166. 

SFREE.B 19. 









16 7. 

acopy 

PCH3..PCH2. 








Tnd dTT». 
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Table C-3 • 
NASI FILE 


DATA , L NAS 
-fr*TA~7-RL70 


iir* 


I. .NASI, 

-S'i2/29-|7-:05S3A 

UHDG |N 

•BXIJT *NASTRAN*LINKJ - 
NASTRAN BUFFSJZE»B7l 

JO NA3TRAN fCELFE 

APP DISP 

SOU «,0 

TIKE 60 

- 0 T AG 8,21 - - 

ALTER 2 


S ASSEMBLE AND SOLVE It PRIMARY VARIABLES 

"PAR AH //C,NiNOP/V*Np-TKUE*-l S" 

PARAH //C,H,NOP/V,M,FALSE«<-) S 

PAKAM //C|N,ADD/V»M JNUEL/V , Y .NUMNP 5 - 

CUTPUT2, • • , ,//C,M ,-t/C ,N, IR % 

input T 2 — / » nr/Ci «;-t ri s-* — 


'LABEL OUTER * 

PARam //C,H,5UByV»Y,NOE«U/V,Y,NOEaU J 

— CONI) ■ BOTTOM! , NOEQU-S 

INPUTT2 /At , e 1 ,, 15 S 

— AD0 A 1 f / A X— S — 

ADD 0 t , /8 X S 

LABEL INNER S 

— PARAM — //C,N,SU6/ViY~,NUM(IP/VsY»NUMNp- S~ 

COND B GT T0H2 , HUMNP f 


-e<wi-v- 

EqUlV 


-AXfAT/FAtSE-r- 
b X , S T /FALSE S 


/A,B,,,/V,T»BL0K/C,N*I5 S 

A. AX/AT S 

At.AX/TRUE-S 

b,BX/BT * 

BT,BX/TRUE'S ■; 


INPUTT2 
ADD 

-EqUIV — 

AOO 

-eqwiv — 

REPT INNER, 31 
LABEL bottohz s 

HATPRN AT , B T t , • // * - 

SOLVE AT,aT/X/V t Y.SYM/C,N»l/C,N»l/C,Nt 

'HATPRN A, ri (//’ S 

0UTPUT2 Xi|»j//C,NtO/C,N,M i 

paRah - //C,N,SUB/V,Y.NUHNP/V,N,NUEL s 

RERT 0UT6R.lt s 

label BOTTOMj s 

0UTPUT2, ..,»//C,N,-9/C;N,JH * - 


l 5 


-~S9, 


■ ALTER 30 
i 

-» ASSEMBLE STIFFNESS MATRIX KGG 

PARAH //C,N,5UB/V,Y*NUHNP/V,N,NU£L S 

— I NPU T T 2 /» , . ,/C,N,-l/C,N, 17 * -- 

LABEL KLOOP S J[ 

PARAH //C.N.SUe/V.YiNUMHP/VtNNUHNP * 


f'f 

*;i ( 


(Coatimied) 
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Table C-3 (Continued) ! ‘ 


COMD KtNO , NUHNP 5 

■ EQ VI V KGGX i KfiGG/F ALSE.-S -=■ 

I.NP.UT-T2 /KliK2»K3,,/V,Y»BLOK/C t H»l7 S 

AD05 K1 ,K2,K3,KGGX,/KGGG -S 

EQUIV KG6G,KGGX/TRUE * 

“fiefi-T— KbOOP >32— V 

LABEL KEND f 

-HATPRN- - KGGX , , , ,//-5 -- 1 t- . 

S 

— AL-TER- I Hi 


-5 -OujPtfT— G 15P— AND— YELOGFf-Y— TO CELFE 

UMCRGE USETD,UOVT,/UVN/C,N.N/C,N.D/C»N.S s 

-HATPRN'- UVN,, — 

0UTPUT2 UVNi(m//C.N,*J/C,N,|Z I 

enpalter 

-cend 

TITLE* 5.0 X 5.0 X 0.0820 INCH THICK PLATE 

-SUBTITLE* -ASSEMBLE-- AND- SOLVE-PR I H ARY- VARIABLES 

LABEL* ONE T l HE STEP TRANSIENT ANALYSIS 

-IC»1 

HPC-l 

-SPC-I — t 

TSTEP-I 

OUTPUT 

-SET I *--62 THHU-76,206,231 ,236 

OISP-I 

-VEL0--1 - 

BEGIN 
-S-PCHl 
DADD ,P 
-PARAH 
PARAH 
-PARAH- 


BULK 

-CONTAINS DAREA,-«R10 aNO TSTEP- CAROS- FROM- CELFE « -CHANGE -EACH-O-T- 
PCH i , 

0 

—II 

32 


paRam 

-CELAS2 
CELAS2 

-CELAS2 - 1003 

GROSET 


BLOK- 

SYH 

-NOEQU-- 

NUHNP 

1001 

1002 


J 


1 .*3- 

1.+3 

1.+3- 


238 -1- 

236 2 

236 3 


456 


C0RD2R 

+ 222 
PQUAD2 

1 .0 

201 

0 

0.0 
123 -- 

0.0 

0.0 

.082 - 

-0.0- 

-0.0 

0*0- 

CQUA02 

203 

201 

175 

204 

210 

172 

C0UAD2 - -• 

204 

-201 

204 -- 

205 

211- 

210 

CQUAD2 

205 

201 

205 

206 

212 

211 

CQUAU2 


.201 

1 7 ? 

_2 10 

216— 

217 

16 9_ 

2U 

CQUAO 2 

209 

201 

210 

21 1 

CQUA02 - 

210 

201 

..211 

212 

2 1 B 

217 

CQUA02 

211 

201 

163 

166 

220 

219 

CQUAD2 

. 2 1 2 

201 

166 

169 . 

221 

220 

CQUAD2 

213 

201 

1 6.9 

216 

222 

221 

CQUA0 2- 

.. ~Z 1 4 

-201-- 

..216 

217 

223- - 

222 

CQUA02 

215 

201 

217 

218 

224 

223 

CQUA02 

216 

201 

. 219 

220 

226 

226 


C-6 



16 5* 
U6« 


C-3 (Continued) 


201 
*5 ft ■ 

220 

221 

.3 ^ o 

227 

ZZ* 

577. 

-x\j i 

201 

2 2 | 

222 

— "£2.£ 

223 

O 

22 9 

* 4 ' 
228 


1 223 2J1 


201 
ft « 

225 

226 
— .? o 7 

4 w 1 
201 
,1(1 1 

TC C P“" 

227 

p a e _ 

4Z / 

228 
- P?Q 

201 

229 

230 


229 2 30 234 

2 , -.0 —. Oil — 0 - 

2 , i , .Oil 0 

2 .0 2,0 * 0H 0 - 

U " 2 . .001 0 

,0 2„o .001 0 - 

fOOO 3.000 » 01„1 

,oao — i.ooa .oil — 

.000 *1.375 .OH l 

l-.OQO 3.000 »011 — 

1.000 1.000 .Oil 

1 .000 1.3 76 .Oil — 

2.000 3.000 >011 


.000 1.375 

l-.OQO — a.QOO — 

1.000 1.000 
1 .000 1.376 

2.000 3.000 

2,000 1 ♦ QQO 

Z.DOO 1.375 
3.000 .000 

3 » gOQ 1*000 

3,000 2 . 000 — ~ 

3.000 3.000 

3.000 1*000 

3 . Q0Q 1.375 

1 .000 .000 

1.000 1.000 

1,000 2.000 

1.000 3.000 

1.000 1.000 — 

1.000 1.375 

1,075 .000 — 

1,075 1 . OOD 


1.000 
— 0 . 075 - 
1,073 
- 0 , 875 - 
1,875 
— 1 * 875 
1,875 


3.000 .011 

■ 1.000 .011 

1.375 .011 

— .ooo .mi 

1*000 *011 

-2.000— ~ .Oil — 

3.000 .oil 

-1.000 .011 — 

1.375 .Oil 

— .000 .011 

1.000 .oil 

- 2,000 .Oil 

3*000 *011 

- 1.000 — .011 — 
1.375 .011 

— .000 *011 

l.QOO .011 

2*000 .011 -- 

3.000 .011 

- 1.000 - - .Oil - 

1.375 .011 


- 229 

231 

-232 

233 

231 

235 

6 

-b 

6 

b 

0 

-0 

0 

0 

0 

0 

0 

0 

0 

0 

o 


0 

— o— 

0 

— o— 

0 

— o - 

0 

0- 

0 

— — 0 - 
D 

o - 

0 

o - 

0 


& 

4 

i 

b 

6- 

4 

6— 

b 

b~ 

b 

4 - 

6 


> 14 + 04 — 0 . 637 + 060.0 29 . 29 + 040 . 0 - 


62 

—143 — 
46 

— 146 - 


D 4 

0 --- 4 

0 6 , 

0 4 

0. 78 + 06-0 +0W- 

0.0 1 

- 0.0 1 

0.0 1 

0,0 1 


6 fl 
1 ft 9 

t 69 

0*0 

1 *0 
^ * 0 

0.0 

0 .0 - - 

l 

7 1 

172 

0.0 

1 ,0 

0.0 

1 

- - - 1 7 2 

- 73 

0*0 

1*0 

-- 0.0 - — 

-1 

70 

1 75 

Q.Q 

1 .0 

g.o 

1 

175 - 

■ - 76 — - 

0.0 

1 .0 

— 0.0 

1 

10 - 

10 . 

10 , 

20 . 



5+06 

\ 1 

0 . 17 "' - 

1 .0 

0*073 

63 

1 

- 1.0 


1 - 2 

1.0 

63 

2 

- 1.0 

— 



Table C-3 (Concluded) 


U3 
1 66 — ‘ 
166 
I ^ ^ -- 

16? 

1-69— 

HPC l 169 

"HPC l 172 

MPC 1 172 

-HPC 1 172 

HPC l 175 

-HPC- 1 176 

MPC 1 175 

-SPC1 1 15 

SPC1 1 15 

-spei 1 15 

SPCt I 1 

-SPC-l 1 29 

SPCl 1 29 

- SPC 1 1 29 

SPCl l 2 

-TUOA01- l 2 f 

TABLED1 10 

-+T01 0. 1. 

EN9DATA 

-#APO-|P-*HASTHAtf*C-ONTRt- 


3 

- 1 

2 


3 

-I 

13 

-95 

79 

-1 

13 ' 

-33 

62 


1? 

: 9? - 


end data* 
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Table C-4 
LOOP FILE 


S YM 


3D AT A, L 

LOOP. 

data am 

SL73R1 10/31/78 21*19:16 101 

1, ... 

..... SADD.P NASI. 

2* 

fiBRKPT PUNCHS/PCH1 

.. .. 3. . 

SASG.A PCH2. 

9. 

3 ASG , A PCH3. 

E. 

aUSE 18..PCH2. 

6. 

'•USE 19 . , PCH 3 . 

7. 

SXOT CELFE 

8. 

♦ 1 


+ 1 

1C. 

d B R.K P T PUNCHS 

1 1. 

SFREE.b 18. 

12. 

SPREE, 8 19. 

1 2. 

SCOPY PCH3 . , PCH2 . 

1 

3 AD D , P NASI. 

IE. 

3BRKPT PUNCHS/PCH1 

lfc. 

SASG.A PCH2. 

17. 

SASG.A P CH3 . 

18. 

SUSP 16..PCH2. 

15. 

SUSE 19..PCH3. 

2C. 

SXOT CELFE 

21. 

♦1 

22. 

-1 

23. 

3BRKPT PUNCHS 

2<U 

5FKEE.B 18. 

2 £ t 

aFREE.B 19. 

26. 

3C0PY PCH3 • , PCH2. 

END CATA 

• 
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Table C-5 
PCH 2 FILE 

.S YM _ 


JMTU KH2. 


DATA 8R1 

2L73R1 

10/31/78 21 >19:18 

tO> 



1. 

6RID 

1 

.000 

.000 

.000 

4* 

GRID 

2 

.000 

.000 

.091 

2 . 

GRID 

3 

.000 

.000 

.082 

9. 

GRID 

9 

.150 

- .000 

.000 

£. 

GRID 

5 . 

.150 

.000 

.091 

8. 

GRID 

6 

.150 

.000 

.062 

7. 

GRID 

7 

.000 

.150 

.000 

6. 

GRID 

8 

.000 

.150 

.091 

S. 

GRID 

9 

.000 

.150 

• 0 82 

1C. 

GRID 

10 

.150 

.150 

.0 00 

1 1. 

GRIO 

11 

.150 

.150 

.091 

la. 

GRID 

12 

. .150 

.150 

.082 

1 2. 

GRID 

13 

. .000 

.000 

.232 

19. 

GRID 

19 

. .150 

.000 

.232 

15. 

GRID 

15 

.000 

.150 

.2 32 

16. 

GRID 

16 

.150 

.150 

.232 

1 1. 

bfilD 

17 

.350 

.000 

. 0 CO 

18. 

GRIO 

18 

.35 0 

. 0 CD 

.091 

1 5. 

6RID 

. 19 

.350 

.000 

.082 

2C. 

GRIO 

20 

• 35 0 

.150 

.000 

2 1. 

GRID 

.-21 

.350 

.150 

.091 

22. 

GRID 

22 

.350 

.ISO 

".002 

22. 

GRID 

23 

'.350 

.350 

.000 

29. 

GRID 

29 

.350 

.350 

.091 

25. 

GRID 

25 

.350 

.350 

.062 

28. 

GRID 

26 

.150 

.350 

. DCO 

21. 

GRID 

27 

.150 

.350 

.091 

26. • 

6RID 

28 

.150 

.350 

.082 

29. 

6RID 

29 

.000 

.350 

.000 

3 C. 

GRID 

30 

.000 

.350 

.091 

3 1. 

GRID 

31 

.000 

.350 

.082 

3 2# 

GRID 

32 

.500 

.000 

.□CO 

3 2. 

GRID 

33 

.500 

.000 

.091 

39. 

GRID 

39 

.500 

.000 

.082 " 

3 5. 

GRID 

35 

.500 

.350 

.000 

3 8» 

GRID 

36 

.500 

.350 

.091 

3 7. 

• GRID 

37 

' .500 

.350 

.082 

3 8. 

GRID 

- 38 

.500 

.500 

.OCO 

3 S. 

GRID 

39 

.500 

.500 

.091 

' *tC. 

6RID 

90 

' .500 

" .500 

.082 

.9 !• 

GRID 

91 

.350 

.500 

.000 

2 • 

GRID 


.350 

' ‘.500 

' ~;o9i" 

9 2. 

GRID 

• 93 

.3SD 

.500 

.082 

9 9. 

GRID 

99 

‘ ‘ .000 

.500 

.OGO 

9 5. 

GRID 

95 

.000 

.500 

.091 

9 8. 

" GRID 

96 

.000 

.500" 

” .082 " 

9 7. 

GRID 

97 

1.000 

. 0 CD 

.000 

9a. 

GRID" 

98 ... 

TTOtfJT 

.000" 

. 0'4"1 

9 S. 

GRID 

99 

1.000 

• 0 CO 

.082 

s c ♦ 

GRID 

50 

‘I. 000 

".5 CO 

" ".OCO 

5 1. 

GRID 

51 

1 .000 

.5 CO 

.091 

" 52. 

GRID 

52 

1.000 

' .500 

.0 82 

5 2. 

GRID 

53 

1.000 

1.000 

.OCO 

"59. 

GRID 

59 

*' 1.000 

"i;oqo" 

"" .091" 


(Continued) 
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Table C-5 (Concluded) 


SVM 


5 5. 

GRID 

55 



1.000 

1.000 

.082 

5 6. 

GRID 

56 



.500 

1.000 

.ODD 

57. 

GRID 

57 



.500 

l.OCO 

.041, 

58. 

6RID 

58 



.500 

1.000 

.082 

5 9. 

GRID 

59 



.000 

1.000 

.OGO 

6 C. 

GRID 

60 



.□DO 

1.000 

.041- 

6 1. 

GRID 

61 



.000 

1.000 

.082 

6 2* 

GRID 


62 

I 

2.000 

.000 

.000 

6 2. 

GRID 

63 

1 


2.000 

.000 

.041 

64. 

GRID 


64 

1 

2.000 

.000 

.082 

• 65. 

GRID 

65 

1 


2.000 

1.000 

.000 

66. 

GRID 


66 

1 

2.000 

1.000 

.041 

67. 

GRID 

67 

1 


2.000 

1.000 

.082 

66. 

GRID 


68 

1 

2.000 

2.OC0 

.OGO 

69. 

GRID 

69 

1 


2.000 

2.000 

.041 

7 C. 

GRID 


70 

1 

2.000 

2.00Q 

.082 

7 1. 

GRID 

71 

1 


1 .000 

2.000 

.000 

7 2. 

GRID 


72 

1 

1.000 

2.000 

.041 

72. 

GRID 

73 

1 


1.000 

2.000 

.082 

74. 

GRID 


74 

.1 

.000 

2.000 

.OCO 

7 5. 

GRID 

75 

I 


.000 

2.0 CO 

.041 

7 6. 

GRID 


76 

1 

.000 

2.000 

.082 

END GAU. 

1 


_ 



- . 
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